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module showlog (ident = ‘v04-000', 
begin 


addressing_mode (external = genera 


. 
' 
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'@ 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 


!# ALL RIGHTS RESERVED. 


:® THIS SOFTWARE a r i _ oe A LICENSE AND MAY BE USED AND cores 
:* ONLY IN oe wil THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF eNABOVE C CopyRiGut NOTICE. THIS SOFTWARE OR ANY OTHER 


: E PROV 
'@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


7 
« 
® 
tr 
fr 
® 
® 
wy 
® 
& 
ie TRANSFERRED. “ 
® 
© 
* 
& 
® 
® 
& 
® 
® 
® 


os os a ts 


MEUM 9 ODNAVUEWN (OO DNOAUEWN SQ OOONOU Sw 


:# THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 


:# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!@ CORPORATION. 


ie DIGITAL ASSUMES NO RESPONSIB 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
t@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


; 
; 
'4¢ 


rads 


' 
! FACILITY: Show logical names 


i ABSTRACT: 
‘ This module implements the ‘"SHOW LOGICAL’ DCL command. 


i ENVIRONMENT : 


SSSSSSSSSSSssssss 
eS 


VAX native, user and kernel mode 
i AUTHOR: Peter D Gilbert CREATION DATE: 20-Dec-1983 
i MODIFIED BY: 
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45 5 Make SHOW LOGICAL more friendly in terms of space on eeetets 
4 § instead of asking for PAGEDYN, ask for the minimum 
4 PAGEDYN and process free-space as determined by "SGETJPI. 
: 3 Fix possible kernel-mode accvio on error path. 

0 50 v03-003 RASO319 Ron Schaefer 2-Jul-1984 

1 51 Add additional data structure cots to the RT structure. 
2g 26 Since RT and NT are actually used in 2 facilities, they 
34 bez should really be globally Ue + fl 

5 Bee v03-002 PDG0002 Peter D Gilbert 08-Apr-1984 
3§ 089 Add LOG_V_EQUAL, which is set in CMP_LOG, and indicates there 
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12-800-1 382 93:88:45 CLIUTL. SRC ISHOWLOG.83271 
are two or more identical logical names in the same table. 
This flag indicates that, even if no other attributes are 


displayed, the acqeee mode should be displayed to distinguish 
between these logical names. 


Change DUMP_LOG so a depth of 0 is shown as "' "’, instead of ‘0’. 


For recursive translations, avoid writing a blank Line until we 
know it's needed to separate logical names (when NO names were 
found, the extra blank Line looked very tacky). 


v03-001 TMK0001 Todd M. Katz 04-Apr-1984 
Make the following changes: 


1. I have changed this module to use the symbol LNMSC_MAXDEPTH 
to define the maximum logical name recursion depth instead 
of the local symbol RT_C_MAXDEP. 


2. The name of the offset in the table header that contains the 
address of the protection structure associated with shareable 
vegies name tables has been changed from LNMTHSL_CHP to 
LNATHSL_ORB to reflect the replacement of shareable logical 
nene tables’ CHIP protection templates by Object Rights 

ocks. 


: 


AVA SSONOO 


Ww 
° 


Change the routine recursively_translate, so that it 

imme lecely exits whenever it Ts called with a depth equal 
to LNMSC_MAXDEPTH. Previously, this routine was exiting only 
when it was called with a depth greater-than LNMSC_MAXDEPTH. 
However, since recursion depths are numbered from 0 to 9 and 
not from 1 to 10, this was resulting in names bein 
recursively translated to a depth of eleven instead of to a 
depth of ten. 


S$S3Sssss 
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library ‘sys$library:lib’; ! VAX/VMS system definitions 
Library ‘sys$ibrary:xport’; 

Zif Ideclarea(Zquote $descriptor) Zthen undeclare Zquote S$descriptor; %fi 
require ‘src$:showdef'; ! SHOW common definitions 


: BLISS EXTENSIONS 
macr 


eeseeee 


° 

$check_(x) = (local s: initial(x); if not .s then signal_stop(.s)) %, 
Macros for offset. position, size, and extension. 

base_ = 0.0.0.0 %, 

b0_ = g. e a. 
bi_ = 

t= 0,5 


i This macro is similar to the Bliss Zfieldexpand lexical function. 
However, it works with either field names, or 0,p,$.e macros. 
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If }ee- 


pand_*) 


and(a,b) %else 


and(a) %else 
felse 


a,b,¢c.d 
arameter to ifieldex 


else 
ber of arguments to %fieldexpand_*) 


then ifieldex 
Zthen ifieldex 
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: 


a 7? 

; } ; $ : : BLOCK TO CONTROL RECURSIVE TABLE NAME TRANSLATION 

. 3 § 3 1! 31 25 24 16 987 0 

g 1 q ' berm err we eee eo mente wee we ewe ween enter ono wewmeweceore $a ewe re een eer eenay 
gs 1! RS => | TRIES | DEPTH ' T Ci ACCESS MODE : 
4 1 5 1 ' pore swe neem newman} wer ner mete em mew ep ecm meme e emer ene $e eee eee wow eee em} 
7 ,: ' CACHE TABLE ADDRESS OR 0 i 
3 : ; : + Si isaemarina i ie ae 
; ; i : : ' LNMSC_MAXDEPTH LONGWORDS TO SERVE AS STACK 
; 12) , 3 ' ' 
3 ite rt : : T IS SET TO INHIBIT FURTHER RECURSION 

3 1*6 rk 1 Literal 

; 14 44 1 rt cpextr legs 255; ! Max number of tries 

: 148 45 1 Sunit_Fiéld rt_fields = 

; 149 ré 1 set 

; 150 47 (1 rt_wir5= C$bits(16)], ! Access mode and flags 

3 13) 48 1 Soverlay(rt_w_r5) 

yh ¢ 49 1 rt_b_acmode= $bits(8)], ! Access mode 

ao 50 1 rt_b_ flags= $bits(8)], ! Flags 

3 154 51 1 $ ontinue 

3 399 8 2g 1 Soverlay(rt_b_ flags) 

BS 53 1 rt_v_case= fsbitd. ! Caseless flag 

3 4 3¢3¢ : rt_v porns $bitl, ! Inhibit recursion flag 

; con 

; 159 8 2$ 1 rt_b_depth= $bits(8)], ' Recursion depth 

; 160 57 1 rt_b_tries= $bits(8)], ! Recursion tries 

; 161 0 38 1 rt_l_cacheptr= $address], ! Address of cache entry 

; 196 0 +4 : rt_a_steck= $bits(0) ! Start of recursion stack 

° es; 

3; «164 61 1 Literal rt_k size = $field _set_units + Lnm$c_maxdepth * Eugvels 

g 169 O368 ! macro rt_block = Sunit_Block(rt_k_size) field(rt_fields) 2%; 

3 187 0264 1 

; 168 0265 1! 

; 19) 0 r$] : : BLOCK TO CONTROL NAME TRANSLATION 

3 (7 oe Ff 31 25 24 16 15 87 0 

g 1 % 9 4 ' poneonmwanesec ose ponmeer oncom so woe eo} noes nme wow seme se poem ewan ewemeewees & 
3; 7 0 1 ! R3 => {| HASH FUNCTION VALUE OR 0 ' Ci ACCESS MODE i; 
g 1 74 71 1 ' Pre or eres eens ewe peo ew ese tesa e scene} essavecn am esecwe soo on eae ane cnaas 
3 V7 va 3: : LENGTH OF NAME H 
3 1 26 7 1 ' orem ceerewmseooces fees comor oe ece wee} ewe eer senor meer ees perme rece eeeeoe oat 
; 17 @ 3! : ADDRESS OF NAME H 
; 179 7% 1! : TABLE HEADER ADDRESS OR 0 ' 
3; «(181 fe 73 : NAME BLOCK ADDRESS OR 0 H 
3 1 a6 79 1 ' peer eenw eon ewoween pore rs meen ee ee sf} ese mee emo woe eee ew et mm ee > 
3 7 1; 

; HT 1 ' : F IS SET TO INHIBIT FURTHER RECURSION 
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! Sunit.. gi tele nt_fields = 
1 r$= C$bits(16)], ! Access mode and flags 
1 Stein, wir5) 
1 acmode= pgbits(g)). ' Access mode 
1 nt ~b_ flags= $bits(8)J, ! Flags 
1 $continue 
1 Soverlay(nt_b_ flags) 
1 nt_v_case= C$bit), ! Caseless flag 
1 $confinue 
1 nt_w_hash= $bits(16)], ! Hash function or 0 
1 nt_l_namlen= Sinteger), i Length of name 
1 nt_l_namadr= $address], i Address of name 
1 nt | tabide $address], i Table header address or 0 
; nt. a! _thread= Saddress i Lamb pointer 
1 literal’ nt_k_ size = $field _set_un 
1 macro nt_bTock = $unit ithe “ke * size) field(nt_fields) %; 
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H 5 1! Define Linkages for the routines to lock and unlock the logical name 
; 1 ! table mutex, as well as the match routine and the protection checking 
; : H routine. 
; 1 Linkage 
a 4 1 ink _presearch = jsb ( ! RO = RETURN STATUS 
3 1 1 register=1, ! R1 = HASH TABLE ADDRESS (IF TABLE HEADER ADDRESS IS MISSING) 
5 \¢ 4 1 register=3; ! R3 = ADDRESS OF NAME TRANSLATION (NT) BLOCK 
; 21 1 register: ! R1 = ADDRESS_OF —— NAME BLOCK THAT CONTAINS MATCH. 
3 13 19 : bien ): nopreserve(0,1,2) preserve(3,4,5) notused(6,7,8,9,10,11); 
: nka 
3 1 \ 1 tRk con search = jsb ( ! RO = RETURN STATUS 
3 1 1 1 register=5; ! R3 = ADDRESS OF NAME TRANSLATION (NT) BLOCK 
3 18 14 1 register=1 ! R1 = ADDRESS OF yee NAME guoce THAT CONTAINS MATCH. 
3 3 1 : ton ): nopreserve(0,1,2) preserve(3,4,5) notused(6,7,8,9,10,11); 
: nkage 
3 1 i3 1 tak check prot = jsb ( ! RO = RETURN STATUS 
3 ¢ 8 1 register=1, ! R1 = ADDRESS OF LOGICAL NAME TABLE HEADER. 
3 19 1 register=2, ' R2 = ACCESS MASK TO USE FOR THE CHECK. 
; 4 t 0 1 register=4, ! RG = CURRENT PCB ADDR 
; 5 Ba register=5 ! RS = si MODE OF ACCESSOR 
; : 8 ¢ : _ ): nopreserve(2) preserve(1,5,4,11) notused(6,7,8,9,10); 
: inkage 
; 25 056 1 [ak_hash = jsb ( | RO = RETURNED HASH VALUE 
3 9 0325 1 register=0, ! RO = LENGTH LOGICAL NAME STRING 
; 230 03 § 1 register=1 ! R1 = ADDRESS OF LOGICAL ie STRING 
; 231 be 1 ): nopreserve(2,3) preserve(4,5) notused(6,7,8,9,10,11); 
3 3 0328 1 Linkage 
3 ¢s 8385 1 ink_setup = jsb ( 
; 34 330 1 register=2, ' R2 = LENGTH OF TABLE NAME STRING 
3 ¢s2 0331 i register=3, ' R3 = ADDRESS OF TABLE NAME STRING 
; 36 03 ¢ 1 register=5; ' RS = ADDRESS OF RECURSION TABLE SEARCH CONTROL BLOCK 
; 37 0 1 register=1 ! R1 = ADDRESS OF LOGICAL Name JABLE HEADER 
3 $ 0 1 ): nopreserve(2,3) preserve(4,5) notused(6,7,8,9,10,11); 
; 9 0335 1 Linkage 
; 240 B3 6 1 ink_table = jsb ( 
s e461 0337 1 register=5; ' RS = ADDRESS OF RECURSION TABLE SEARCH CONTROL BLOCK 
; ¢g 0338 1 register=1 ' R1 = ADDRESS OF LOGICAL NAME TABLE HEADER 
; 24 344 1 ): nopreserve(2,3) preserve(4,5) notused(6,7,8,9,10,11); 
3 246 40 1 Linkage 
: 245 0341 1 ink_lock = jsb ( 
; 46 Beeg 1 register=4 ' R4 = CURRENT PCB ADDR 
3: 247 03435 1 ): nopreserve(1,2,3) notused(5,6,7,8,9,10.11); 
; 28 8 44 1 Linkage 
: 24 45 1 ink _match_n = jsb ( 
; 50 0 § 1 registerss. ' Re = LENGTH OF STRING TO TRY MATCHING 
; 51 347 1 register=5, ' R5 = ADDRESS OF STRING TO TRY MATCHING 
; 26 348 1 register=4, ' R4 = LENGTH OF WILDCARD STRING 
$ 5 -- register=5 ' RS = ADDRESS OF WILDCARD STRING 
3 23 0 29 : tee ): nopreserve(1,2,3,4,5) notused(6,7,8,9,10,11); 
3 nkage 
3 28 25 1 tak_compare = jsb ( 
3; @ 353 1 register=0, 
3 28 see 1 register=1 
3 4 22 ! ): nopreserve(0,1,2,3) preserve(4,5) notused(6,7,8,9,10,11); 
: 261 b339 1 ! Some Linkages that we don't use 
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3 ¢ 1! 
; 26 1 i linkage 
; 2646 1! ink _searchlog = jsb ( ' RO = RETURN STATUS 
; 265 7 | Fegister=$, ' RO = LENGTH OF LOGICAL NAME STRING 
3 $8 1! register=1, i gis ADDRESS OF LOGICAL NAME STRING 
; 26 73 register=2, ! RZ = LENGTH OF TABLE E aie 
; . | register= ' ! RS = ADDRESS o. fag 3 Me STR 
: $ 1! register=5; ' RS = SEARCH ACC — IN Pow. ELESS FLAG IN BIT 8. 
; 270 ii register=1 i Ri = ADDRESS oF igercaL NAME BLOCK CeuAT CONTAINS MATCH. 
: a! ! ius ie ): preserve(2,3,4,5) notused(6,7,8, 
; n 
3 ig 1! tak. firsttab = jsb ( ' RO = RETURN STATUS 
3 74 1! fegister=1, ! R1 = SEARCH ACCESS MODE IN LOW BYTE, CASELESS FLAG IN BIT 8. 
: 275 1! A Helen i Re = LENGTH OF TABLE NAME STRING 
3 7 1! register= ' RS = ADDRESS OF TABLE NAME STRING 
: 7 1! register=1 ! R1 = ADDRESS OF LOGICAL *¢ ob 15 — 
: 27 1 ): nopreserve(2,3) preserve(4,5) notused(6,7 
; er 1 ‘Linkage 
; 280 1 ! ink_lookup = jsb ( 
; 281 1! register=0, ! RO = HASH CODE TABLE NAME STRING (OR 0 IF NOT KNOWN) 
; S 1! register=2, ' R2 = LENGTH OF TAGs NAME ST oh NG 
; 28 1! register=3, ' R35 = ADDRESS OF TABLE NAME STRING 
r} 84 1! register=5; ' RS = ADDRESS OF RECURSION TABLE SEARCH CONTROL BLOCK 
; 285 1! register=1 i R1 = ADDRESS OF LOGICAL N ane gt og 
: 286 ii ): nopreserve(2,3) preserve(5) iatamedth. we 7,8,9,10,11); 
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; Hy 3 } External declarations 

; 290 | op external routine 

; 291 1 present, 

; 38 1 cli$get_value, 

3; 3 1 Lib$get_vm, 

; 294 1 Lib$free_vm, 

; 295 1 t 1bSscopy .dxdx, 

3 38 91 1 str$freel_dx, 

:; 2 38 1 Lnm$check_prot: ink _check_prot, 

3 4 93 1 Lnm$contsearch: lnk-contsearch, ! 22? 
; 94 1 Lnm$presearch: ink=presearch, ! 277 
; 95 1 inm$setup ink-=setup, i 399 
; 301 a8 1 tnmtable: ink_table, i 227 
3 8 97 1 Lnm$lockr: Lnk_ lock, 

a a8 1 Lnm$un lock: ink lock, 

; 304 1! Inm$searchlog: ink_searchlog, 

; 305 00 1! Inm$firsttab: ink-firsttab, 

Be ii teats Mi, am 
3 nm$ Lookup: nk_ lookup, ! 22? 
; 308 $608 1 showSwrite_line, 

3 +4 rte ! fmg$ma*ch_hame: Lnk_match_name; 

; (511 rt 1 external Literal 

3 \¢ 407 1 show$_notran; 

s 51 0408 1 

: 14 409 1 external 

3 319 10 1 fanéat a Tha 

3 1g 111 Lam$al— vectort¢). ! Addrs of sys & proc hash tables 
3; 31 be i6 1 inm$al“dirtbl: vector ! Addrs of sys & proc directory |nmbs 
3 318 415 1! ctl$gl_lnmhash, 

3 19 0414 1! inm$gl_htblsizp, 

: 320 Rat 1! Lnm$gl"htblsizs, 

3 Sel 161! ieagsyscen. directory, 

3 sae 0417 1 ctl$g ref $bblock; 
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H ¢ } } } FLAG_BLOCK 

3 $ 1} This defines various flags that are used. 

; : Most of the flags are gotten directly from CLI calls. 

3 § } Sumit frets flag_fields = 

3 é 

; > a flag_v_system = ($bit], ' True if /SYSTEM specified 

; ¢ § 1 flag_v_group = [$ditl, ! True if /GROUP specified 

3 1 flag_v_jo_ = [$bitl, ! True if /JOB specified 

3 8 1 flag_v_proc = [$bitl, ! True if /PROCESS spect tied 

; 5 1 flag_v_normal = [$bit), ! This means not /STRUCTURE 

; 0 1 flag_v_descend = [$bitj, ! True if descendants needed 

3 a. = flag_v_ full = [$bditl, ! True if /FULL specified ‘ 
3 § 1 flag_v_recurse = ($bitl, ! True to show recursive translations 
; , " : flag. _found = (Sbit ! True if any translations found 

3 1 5 1 Literal flag_k size = $field _set_units; 

; ¢ oe $ ! macro flag_block = Sunit_Block(flag_k_size) field(flag_fields) %; 

3 4 04 : 1 

; 345 04 1 

; : peed : CMDTBL_BLOCK 

; 348 bees 1! This is used to store a table or a logical name from the command Line 
3 9 0445 1! (the roots of these Linked Lists are cmdtbl_list and cmdnam_List). 

; 350 0444 1! For table names, the cmdtbl_l|_table field points to a list of 

3 39) 0445 1! table_blocks that are relevant/correspond to the particular table name. 
3 26 Bees : } For logical names, the cmdtbl_l_table field is unused. 

; 24 0448 1 Sunit_field cmdtbl_fields = 

; 355 0449 1 set 

; 356 0450 1 cmdtbl_l_next = ($address], 

3 Jor 451 1 cmdtbl_l_table = ($address], 

; 358 26 1 cmdtbl_q_name = (Sbytes(dsc$k_d_bin)] 

3 27 53 1 tes; 

; 0454 1 Literal cmdtbl_k_ size = $field set _units; ; 

; 361 O02? : macro cmdtbl_block = $Sunit_Block(cmdtbl_k_size) field(cmdtbl_fields) %; 
; 3 ba89 1 

; 364 0458 1! TABLE_BLOCK 

; 365 0459 1! 

3 0460 1! This stores the information we will display about a table. 

; +8) 1 it also provides 8 sree structure for the tables (via the table_l_next 
3 : and table_lic elds). k 

3 és : The table_l_log field points to a Linked List of log_blocks. 

; 65 1 Sunit_field table_fields = 

3 $8 1 set 

3 67 1 table_l_next = (S$address], 

; $8 1 table_l_child = ($address], 

3 1 table _l_bytesim = ($integer], ! Same as Lnmth$l_bytesim 

; 0 1 table _l_bytes = (Sinteger], ! Same as inmth$i_bytes 

: 71 1 table_ "log = ($address], |! Pointer to log Block 

: 1 table_b_ acmode = ($byte], ' Same as tnmb$67acmode 

3 73 (1 table_b_ flags = ($byte], ' Same as Lnmth$B_ flags 

; 74 1 table_t_name = ([$byte ! Ascic name of the table 
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tes; 
literal table_k_ size = they set_units; 
macro table_block = Sunit_Block(table_k_size) field(table_fields) 2%; 


> 


Wr OVDONOu 


LOG_BLOCK 


' 
' 
: This holds the information for one logical name. 
: These blocks are hae ty variable length -- 
, from log_t_name through the end of the Log-bloct. the contents are the 
same as [nmb$t_name through the end of a [himb block. 
$unit_field log_fields = 
set 


Log_l_next = (S$address], 
log_l_table = gocerges » | Pointer to table_block 
Log_b flags = ($bytel, ! Same as Lnmb$b_ flags 
SoverTay(log_b_ flags) 

umm 


FRLLRLLRRLELLLLLLER 
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H 1 

; 1 

; 1 

; 1 

$ 1 

; 1 

; 1 

F 1 

; 1 

; 1 

5 1 

; 1 

; 1 

3 1 

; 1 

; 1 

: 

5 1 og_v_d = pgpitg(?od. 

; 04 1 Log_v_equa = ($bitl, ! An identical logical is in this table 
: 1 $cont Tnue 

3 1 log_b_acmode = bgbyte P ! Same as inmb$b_acmode 

5 ret : tog. t.name = (Sbyte ! Same as Lnmb$t_name 

3 es; 

3 0699 1 Literal log_k size = $field_set_units; 

; 406 500 1 macro log_block = $Sunit_Block(log_k_size) field(log_fields) %; 

; 407 0501 1 

; 408 beng 1 

; 409 950 1! KNOWN_BLOCK 

; 410 504 1! 

; 6411 0505 1! This block is used to store which logical name tables are currently 
; tig 0506 1! known (to avoid displaying the table and contained names more than 
3 aiz £444 : } once -- consider /TABLE=(LNMSDCL_LOGICAL,LNMSPROCESS) ). 

3 4415 0509 1! A lookup on this structure uses known_|_lnmth as a key, and gives 
3 ret peit : } known_l_table as the result. 

: 418 Bag 1 Sunit_field known_fields = 

: 419 ga) 1 set 

: $20 514 1 known_l_next = (Saddress], 

3; 421 0515 1 known_l_lnmth = ($address], |! Address of the Lnmth block 

3 re 21$ ! anounA.,tenle = (Saddress ! Pointer to the table_block 

; es; 

3 634 218 1 Literal known_k_ size = $field _set_units; 

3 ; 5 Bh ' macro known_bTock = $Sunit_Block(known_k_size) field(known_fields) %; 
; 43 354 1 

; 428 5 § 1 § OWN STORAGE 

; $92 5 +! 

3; 4350 524 1 own 

; 431 5e5 1 vm_size, ! Remaining size of VM 

3; 4 § 5 § 1 vm_addr, ' Starting address of VM 
3 6 5 1 saved_fp, : Saved FP from kernel mode 
. ¢ 5 8 1 known_List: ref known block, ' List of “‘known’’ tables 
; 435 5 1 cmdtbT_List: ref cmdtbl_block, ' Tables from CLI 

; $3 ; 9 ! cmdnam_list: ref cmdtbl“block, : Logical names from CLI 


flags: flag_block, 


Various flags 


16 
1B-Seo-1984 1:28:17 Yanett BLigg=52 v4.0-762, Page (1 


: t38 ; ! acmode: byte; ! Intergrity mode 
: 640 1 
3; 4461 ¢ 1 ! Macro for a routine to re-call itself in kernel mode 
; a 5 ! } (if it’s not already running in kernel mode). 
3 ree | 2 5 ! The sole rationale for this is to make the code more readable. 
: 44 ez 1 | This macro also saves the FP of the kernel mode code. 
3; 44 541 1! The idea is to provide an oeer way to return out of kernel mode. 
; a 248 ! 1 And while we're at it, lock the logical name tables for read access. 
: 450 az 1 macro 
; $2) : rb : runs sa horaat Creat zs 
: re ” 243 1 bul Ltin ap. movpsl, fp; 
3 454 M0548 1 local psl: SbblockEZupval); 
3; 455 m 0549 1 eqvpet test): 
; 436 A‘ 9990 i if ps psl$v_curmod] eql psl$c_kernel 
; ret - ba8§ i ns adh toc 
: 660 m 0554 1 gin 
; 461 m 0555 (1 local status; 
; 46 4 0996 1 status = $cmkrnli(routin = rtn, arglst = .ap); 
; 46 m 0557 1 saved_fp = 0; 
: oes m 088 | + ap cere 
; 466 ° 0360 inm$ Locke (.¢tl$gl pcb); 
3 end i; 
; 468 0362 1 
: r¢ +4 bee7 : Macro to write a blank Line 
: 471 0565 1 bind 
; rt 8206 : blank_line = %ascid''; 
§ macro 
3; 474 ™ 0568 1 write _blank_lLine(z) = 
; ri M 0340 | ytil_output (blank. tine) 
: 477 571 1 . 
3 thy B28 1 Fout ine attt putput tetretr. pl) = 
s egin 
; 480 0574 2 rela show$Swrite_line(.ctrstr, pl); 
; 481 0575 end; 
-TITLE SHOWLOG 
-IDENT \v04-000\ 
-PSECT SPLITS,NOWRT,NOEXE ,2 
0000 P.AAB: .BLKB 0 3 
010E0000 00000 P.AAA: .LONG 17694720 3 
00000000' 000 ADDRESS P.AAB 3 


-PSECT SOWNS,NOEXE,2 


H 16 
04-006 1erSep-1986 2:09:57 — LeCiuT sneSshowod-ase71 


B0904 VA_SIZE:.BLKB 4 
VM" ADDR: .BLKB 
SAVED_FP: 


BL 
0000¢ KNOWN LIST: 
00010 cADTAL List: 
00014 CMDNAM_LIST: 


-BLKB 
0018 FLAGS: .BLKB 
OO1A ACMODE: .BLKB 


BLANK_LINE= 
EXT 


LNM LE, LNMSLOCKR 
XTRN LNMSUNL bck, SHOWSWRITE_LINE 
XTRN FMGSMATCH NAME, SHOWS ROTRAN 
XTRN SGNSGL_PAGEDYN, LNMSAL HASHIBL 
EXTRN LNMSAL_DIRTBL, CTLSGL_PCB 


-PSECT SCODES,NOWRT,2 
0000 00000 UTIL_OUTPUT: 
. WORD 
08 AC 9F 0000 PUSHAB 


04 AC 0D 0000 PUSHL  CTRSTR 
000000006 00 02 FB 00008 CALLS #2, SHOWSWRITE_LINE 
04 0000F RET 


EXTRN 


Save nothing 


; Routine Size: 16 bytes, Routine Base: S$CODES + 0000 


; 


16 
04-000 VenSep-19ee 12:09:57 — ECKTUTL’SRESsnowtogcasos 1 one 


Routine to allocate some memory. 
A large chunk of memory has already been allocated (by LseSget_va . 
This routine simply grabs a Little piece of that Large chunk. 


Mew 


Because the amount of memory we allocated is based on sgn$gl_pagedyn, and we 


Pw ot ot at ot ot ot 


@ vececacececaseca 


5 76 «1 
! i 
; rg 
3 1 are pretty good ahout not storing information twice, we should never run out 
3 2 § : of this memory. However, if we do, we're ready for it (see below). 
; 491 3 4 1 routine util allocate size) = 
: 49 5 
: 438 38 then a9 28 5 itt: - to geq 0 
5 r ° O. 
<3? 396 ies ’ we a ‘ vm_size 
: 198 238 — sitet 
; $00 59 begin 
; 501 594 ! 
5 206 22 : We aren't in kernel mode. Signal insufficient memory. 
: HA §399 Sr gnat Cateut, AGU TemmNT | 
3 28? B26 return 0; 
; 506 599 end 
; 507 Ren0 else 
; 508 01 begin 
; 509 Bes ! 
; 510 0 !' We are in kernel mode. Return a status to the calier, by 
; 31) bene H setting FP to that of our first kernel mode frame and returning. 
; 21 0606 builtin 
; 514 060 fp; 
3; 515 060 Lnm$unlock(.ctl$gl_pcb); 
; 516 060 set_ipl(0); 
3 fA 0610 fp = .saved fp; 
: 518 0611 return showS_insvirmem; 
s 319 pote end; 
: 520 06135 1 end; 
003C 00000 UTIL_ALLOCATE: 
WORD Save R2,R3,R4,R5 ; 0584 
55 0000' CF 9 9000 MOV vM RS ; 
65 04 AC C2 0000 SUBL SIZE, VM_SIZE ; 0587 
08 19 00008 BLSS 3 
50 04 = AS 6 fi 00 ADDL3 VM_SIZE, VM_ADDR, RO ; 0589 
4 0001 RET ; 0590 
08 AS Fs 8 15 1$: TSTL AVED_FP ; 0591 
10 1 13 BNEQ 3 
007812F 2 F OD 1 PUSHL #7869170 ; 0597 
00000000G 00 1 FB 0001 CALLS #1, LIBSSIGNAL $ 
0 B 03 Le RO : 0598 
54 000000006 00 00 00028 2$: MOVL  CTLSGL_PCB, R4 : 0608 


18-Sep-1984 01:68:42 AX=11 Bliss-32 V4.0-742 


14-Sep-19 CLIUTL.SRCJSHOWLOG.B32;1 
000000006 0 16 F JSB LNMBUNI OCK 
25 08 A 50 mOVL SAVED FP FP 
5 oo7si2ee 8F 00 0 ¢ MOVL #7869770, RO 
004 RET 


; Routine Size: 68 bytes, Routine Base: SCODE$S + 0010 


5 1 14 #1 
3 158 1 
g 5 1 1 ! Routine to re-allocate some memory. 
; 4 17 1! The reallocation is Like removing stuff from a stack. 
$ 5 ; } The parameter is the address of where we want to back up to. 
3 $ 0 1 routine util_reallocate(addr): novalue = 
3 8 0621 egin 
3 9 89 ¢ vm_size = .addr - .vm_addr; 
; end; 
0000 00000 UTIL_REALLOCATE: 
- D Save nothin 
0000° CF 06 AC 0000° cF c¢3 00002 SUBL3 VM_ADDR, ADDR, VM_SIZE 
04 00008 RET 


; Routine Size: 12 bytes, Routine Base: SCODES + 0054 


! Routine to manipulate pointers. 

' ALL the parameters are by reference, except the last which is by value. 
! Slide the rightmost parameter to the left, and so on. Return the value 
; of the leftmost parameter. 

r 


Arun 
MAS SONOS 


outine util_slide = 
begin 


builtin 
actualcount, 
actualparameter; 


wn 


ro 
swap_(x,y) = (local t; t = .x; x = wy; y = .t) &: 
local 


htt tottttatattttate 


SRVSARG 


x; 

x = actualparameter(actuatcount()); 

decr i from actualcount()-1 to 1 do 
swap_(actualparameter(.i), x); 

return .Xx; 

end; 


DUP PVPVPVPV SUSU SVDPUSUSISI SISTA 


SWNT oe at et et et et et ee 
—SCOONOUFwn—Oo0 


= Rononononononononononons 3 


FREES 


3; Routine Size: 


FI 
wiv 
rs 


Ww 
mewn 


SOOM 
VMEWN OO OOnNO 


SUSAR 


Se Se Se Ge Se Ge Ge Se Se Ge Se Se Ge Ge Sete Ge 


DPPAPAAAAMAMMUIUT 


3; Routine Size: 


1 1984 AX-11 Bliss-32 V4.0-742 P 15 
beets a ee CT te hg ee ee a 
000C 00000 UTIL_SLIDE: 
co Om : 85 
33 ces po ROVE Ae ean x : 
$f A MOVZBL (AP), I 3; 0641 
17.=«11 Cc BRB 2s 3 
1 6C40 D 1$ MOVL (AP)CIJ, R1 3; 0642 
2 61 »D 1 MOVL (R1), T : 
1 6040 0 91 mov. (AP)EII, R1 : 
$1 D 19 MOVL x, (RI) : 
3 D pote MOVL Te B : 
5 Se ue 
04 0038 RET 2 > 0644 
38 bytes, Routine Base: S$CODES + 0060 
ses 
sth : : Routine to add another cmdtbl_block to a Linked List. 
9 1 routine add_to_cmd_List( 
0650 1 p_root, — ! Address of the root of the Linked List 
0651 1 name: ref $bblock ! String to be added to the List 
3936 1 ): novalue = 
bese 3B TSO" 
n 
0655 root = .p_root: ref cmdtbl_block; 
2926 local 
065 ptr: ref cmdtbl_block; 
oe28 pte © util allocateccndrat k-size tr€cmdtbl_q_name]); 
0660 ptr = util cslTdstperCendtbl ese gt root, ptr{base_ 3; 
0661 1 end; 
007C 00000 ADD_TO_CMD_LIST: 
.WORD Save R2,R3,R4,R5,R6 : 0649 
10 DD 00008 PUSHL # : 0658 
82 AF 4 FB 00004 CALLS #1, UTIL_ALLOCATE $ 
56 0 4 i944 MOVL oo 3 
08 A6 08 BC 98 28 00008 vc3 #8, @NAME, 8(PTR) ; 0659 
6 DOD ott PUSHL ; 0660 
04 AC 0D 0001 PUSHL P_ROOT $ 
56 DD one PUSHL 3 
BE AF 2 fe 001 CALLS #3, UTIL_SLIDE 3 
56 D0 0001C MOVL RO, PTR : 
04 0001F RET ; 0661 


32 bytes, 


Routine Base: 


SCODES + 0086 


1$-$ep-1966 01:28:17 YAN Lic 9-42 v4,0-742_ 


! This clever ycetie routine reverses a Linked List. 


f This simplifies building the List, and traversing the List. 

7% routine reverse_List( 

75 root, ! Address of the root of the Linked List 

7 next ! Byte offset of the ‘next’ field in a node 
7 ): novalue = 

7 


root = .p_root: ref $bblock; 


local 
ptr: —- yr yee initial(0); 
while -root ne 
ptr = util 531 {de(root. root(.next,l_J, ptr{base_]); 
cone = ptr(base_ 
end; 


A PRPIMININININING @ PP OO OO 
+ § 
—_ 
22 


Se Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge Ge Ge FO Sees 
~“ 


WONOULS WMO 


SAN 


0000 00000 REVERSE_LIST: 
«WORD Save nothing 
D4 00002 CLRL PTR 


50 
04 BC D5 00004 1$: TSTL aP_ROOT 
11 13 00007 BEQL 2s 
50 DD 00009 PUSH PTR 
7€ 06 «BC 08 AC C1 00008 ADDL NEXT, @P_ROOT, -(SP) 
04 Ag DD dp PUSHL 
A2 AF 03 FB 00014 CALLS #3, UTIL_SLIDE 
BA 11 gooie BRB 
06 BC 0 00 OO01A 2$: MOVL PTR, @P_ROOT 
04 O001E RET 


; Routine Size: 31 bytes, Routine Base: SCODES + O0A6 


; 587 0680 1 

; 588 0681 1 routine sort_list( ' ListCcmdtbl_l_table], %fieldexpand (table_l_next,0)); 
; 589 0682 1 p_root, i Address of the root of the Linked Tist 

; 590 83 1 next, ! Byte offset of the ‘next’ field in a node 
; 591 Be 1 compare ! Address of a routine to compare nodes 

: 4 SS A at novalue = 

i 332 a a 

; 595 } Alphabetize the List pointed to by p_root 

3 39 bind 

; 598 91 root -P_root: ref Sbblock; 

$ r+ , bind routine : = 

3 compare_rtn = .compare: lnk_compare; 

; 601 694 ion _ ° 

3 O06 95 sort: ref $bblock initial(0); 

; 60 38 while root(base_] neq 0 do 

; 604 9 begin 


M16 
$ 16-Sep-19 :28: AX-11 Bliss-32 V4.0-742 P 17 
rived itd 12-8681 382 93:65:49 tet tute sre SHOWLOG.832;1 ona (6) 
; 5 9 : 
; 606 38 : Grab one item from root List, and insert in it sort List 
3 608 7 local 
; 7 § r: ref Sbblock 
; 610 7 p: ref vector({j; 
a)! 7 r = sort = .next; 
3 ol¢ r 5 : it = r€{.next,l_J; r = .pl0]) neq 0 do 
4 n 
: ol3 £ ‘ : "f¥ conpare_rtn( rChase_], root(base_] ) geq 0 
2 ee st preewres 
3 end; 
; o18 711 r= util st ide(root. root(.next,l_], 0); 
3 o}3 ng r ; util_slide(r{.next,l_J, pl0i, rlbase_}); 
3 end; 
3 o31 714 root = sort(base_j; 
; 622 $713 end; 
OOFC 00000 SORT_LIST: 
«WORD Save R2,R3,R4,R5,R6,R7 : 0681 
7E D4 00002 CLAL SORT 3 0693 
57 6E 9E 00004 MOV SORT, R7 3: 0704 
57 08 AC C2 00007 SUBL NEXT, R7 : 
55 04 C 00 00008 1$: MOVL @P_ROOT, R5 3 0696 
A 13 Q000F BEQL 4§ 3 
54 57 00 poet MOVL R7, R : 0704 
56 54 08 AC C1 00014 2$: ADDLS NEXT, R, P 3; 0705 
54 66 0 00019 MOVL (P), R 3 
A 13 O001C BEQL 3 
50 4 7D OOO1E MOVa R, RO ; 0707 
0c BC 16 00021 JSB @COMPARE 3 
50 05 00024 TSTL RO ; 
gt 19 00026 BLSS : 
4 D4 00028 3$ CLRL -(SP) ; 0711 
08 BC45 9F OOO2A PUSHAB a@NEXTCRS] 3 
04 AC DD O002E PUSHL Fs 
FF65 = CF FB 0031 CALLS #3, UTIL_SLIDE : 
54 DO 000 MOVL RO, R : 
4 DD 00039 PUSHL R : 0712 
6 3 PUSHL 3 
08 BC44 9F 000 PUSHAB @NEXTCR] 3 
FF55 gf 93 fe Bote CALLS #3, UTIL SLIDE ; 
4 0 OD 04 MOVL ° : 
CO 11 0004 BRB 1$ ; 0696 
06 BC 6E Be 0048 4$: MOVL SORT, @P_ROOT : 0714 
004F RET ; 0715 


3; Routine Size: 80 bytes. Routine Base: S$CODE$ + O00C5S 


i 624 ori? 


g 


718 1 
719 «1 
7 1 
7 1 
7 § 1 

6 7 1 

631 726 (1 

6 7e5 (1 

6 7 1 

6 7 1 

635 7 1 

? 7 1 
7 1 

6 731 

6 7 ¢ 

640 7 

641 7 

og 735 

64 7 

644 7 

645 07 ; 

ee 70 


routine visit_tree( 
root: 


1 
1E-Se0-1986 0:28:17 YaNeNT Lig SZ v4. 0-742. 


! This recursive routine does @ preorder tree traversal 


(visit node, visit left subtree, visit right subtree). 


! To reduce the smount of stack space required, the traversal 


; 3 
' 


s done partly by recursion, partly by iteration. 


ref Sbblock, ! Root of the tree 
loffset, ' Byte offset of the ‘left’ field in a node 
roffset, : Byte offset of the ‘right’ field in a node 
i 


action, Address of an action routine 
depth Current depth of the traversal 
): novelue = 

begin 

Local 
ptr: ref block; 

ptr = root - .roffset; 

while (ptr = .ptrl.roffset.l_J) neq 0 do 


begin 
Ceaction) (ptrl se_] -depth); 
aw big” sateandaeatat . lotfset, J. -loffset, .roffset, .action, .depth+1): 


end; 


000C 00000 vISIT_TREE: 
WORD 


4 Save R2,R3 
50 046 ac 00002 MOV ROOT, RO 
3 0 0c aC C3 00006 SUBL3 ROFFSET, RO, PTR 
1% Ac 01 ¢1 000 DLS PTH 
0 0c aC C1 00010 18 ADDL3 ROFFSET, PTR, RO 
60 DO 0001 VL (RO), PTR 
1F 13 0001 BEQL 
146 AC DD OOOIA PUSHL DEPTH 
52 DD 0001D PUSHL PTR 
10 BC 9 FB OOO1F CALLS #2, @ACTION 
D 000 3 PUSHL 
7E 0c AC 7D 000 MOVO ROFFSET, -(SP) 
08 aC DD 900 PUSHL  LOF 
50 52 08 ac C1 C ADDL3 LOFFSET, PTR, RO 
60 DD 00031 PUSHL (RO) 
(9 «oF FB 000 : CALLS #5, VISIT_TREE 
D? (11 000 BRB 1$ 
04 00039 2$: RET 


3 Routine Size: 58 bytes, Routine Base: SCODES + 0115 


(6) 


a ee er en Re 


z 


o 


! This 
iS : the 


COS SSS SST 
wn 


0779 


7 
7 
Be OE 
Bie taht 
OR 
604 7 $ 
665 z 
an 
BO 
oF 
671 76 
ore 764 
67 765 
6746 7 
675 076 
67 0768 
67 0769 
678 0770 
679 0771 
680 077. 
re 
ne 
684 077 
685 077 
is 
688 07 

689 0781 

690 07 
Bf 

£98 $F 5 

694 07 

oe o7 
$97 $F 9 
698 07 
699 0791 


($2 49 66 SF 53 53 45 43 


f 1 
i 
| routine get_tables = 
74% local 
74 desc:  S$bblock(dsc$c_d_ bin], 
r root: ref cmdtbi_blick in tial(0); 
0 add_(x) = add_to_cmd_list( root, x ) 2; 
p 
0 
0 
& 
4 
4 


1$ese Sep-1 :28: AX-11 Blis 

12-3 08-1 3c 93:68:45 CLIUTL. SRCd 
routine calls the CLI and builds a List of cmdtbi_blocks to hold 
teble names specified by the user. 


macro 


not .flegs(fleg_v_normal) 
fe ags(flag_v_ 


begin 


! For /STRUCTURE, just spuetty the directories, 
and ask for descendants 


i 

' 

i 

i Note that the /STRUCTURE qualifier should not be used with 

2 any of the /TABLE, /PROCESS, /JOB, /GROUP or /SYSTEM oval t0here: 


( Zascid'LNMSPROCESS DIRECTC2Y* ); 
ogd- ( Zascid’LNMSSYSTEM_BIRECTORY® ); 
flags(flag_v_descend] = "true; 


' 

! Get all the relevant table names i — following order: 

i names from the /TABLE qualifi 

: names from the /PROCESs, +j0Be ” /GROUP and /SYSTEM qualifiers 
if still no names, use LNMSDCL_LOGICAL 


be 
sinit _dyndesc (desc); 
clisget. value(Zascid'table’, desc(base_]) 


S 


add_(desc(base_)); 
. flags flag_v proc] then add_( id "LNMSPROCESS’ ); 
. flags{flag_v_job then add_( Zascid ‘LNMS$JOB" ); 
ah flag. vigroup] then add_( Zascid "LNMSGROUP* ); 
- fla tf tag. visystem]then add_( id ‘LNMSSYSTEM* J; 
then add_( id *LNMSDCL LOGICAL" ); 


Zasc 


Zasc 
-Foo asc 


me me mes es 
HR Re 


reverse_list( root, Zfieldexpand_(cmdtbl_l_next,0) ); 


return .root; 
end; 


-PSECT SPLITS,NOWRT .NOEXE 


4F 52 50 26 4D 4E 4C 00008 P.AAD: ASCII \LNMSPROCESS_DIRECTORY\<0><0><0> 


=32 v4.0-742 
S40WL0G.832;1 


2 


) 
| 


vou-bo6 


45 52 49 46 


00 
00 


4c 61 43 49 


SF 


53 


47 


4D 


53 


4D 


GF 


45 


45 


50 


P) 


oo 


16 


54 53 59 


SF 4C «(43 


000000006 


52 


33 


65 
50 
ae 
47 
53 


a 


saat * 
Oe 
C 


0¢ 


D1 
16-Sep-19 1:28:17 Axk-11 Bliss-32 V4.0-742 
12-208 -198¢ 93:38:35 Ee tuTL sre SHOWLOG.832;1 
43 4 17 
guotonl, g PeAACS ADDRESS FeAAD. 
t ‘ g P.AAF: ASCII \LNMSSYSTEM_DIRECTORY\ 
ors 14 ¢ P.AAE: .LONG 17694740 
0 ' 0 4 “ADDRESS P.AAF 
1 4 P.AAH: .ASCII \Sebie) <0><o><o> 
or £0005 O04¢ P.AAG: .LONG 17694725 
0* 0005 “ADDRESS P.AAH 
bE 4C 54 P.AAJ: ASCII \LNMSPROCESS\<0> 
0108 60 P.AAI: .LONG 17694731 
* 00064 “ADDRESS P.AAJ 
4E 4c 0068 P.AAL: .ASCII \LNMS JOB \<0> 
0108 0070 P.AAK: .LONG 17694 
0074 “ADDRESS P.AAL 
4—E 4&4 078 P.AAN: .ASCII ern eee 
Maat 5088 eg SORE s'bonane 
4E 4C O008C P.AAP: ASCII \LNMSS¥STEM\<0><0> 
SGBBRE. $8835 FMC: “boasts 
4E ac B0a0 P.AAR: ASCII \LNMSDCL_LOGICAL\<0> 
O10EO00F 00080 P.AAQ: .LONG 176946735 
00000000° 00084 “ADDRESS P.AAR 
.PSECT $CODES,NOWRT,2 
001C 00000 GET_TABLES: 
-WORD Save R2,R3,R4 
* CF 9€ 0000 MOVAB FLAGS, R4 
* CF 9E 0000 MOVAB OP. R 
CF 9E 0000C MOV ADD_TO_CMD_LIST, R2 
08 C2 00011 SUBL2 #8, "SP 
7E D4 00014 CLRL ROOT 
04 €0 00016 BBS #4, FLAGS, 1$ 
53 DD OOOIA PUSHL R3 
AE 9F O00IC PUS ROOT 
02 FB OOO1F CALLS #2, ADD_TO_CMD_LIST 
A Baise SIRS ade 
03 F $0 CALLS ae ADD_TO_CMD_LIST 
20 00 B B1SB2 #32, FLAGS 
F pO 00030 1$: MOVL  $#34471936, DESC 
AE D4 000 CLRL = DESC +4 
AS SF 000 PUSHAB PLAAG 
02 FB 004 CALLS 2, CLISGET_VALUE 
f 0048 BLBC ~=_—«aRO,. 2 
A 3 See FURS Bt 
02 FB 00051 CALLS ae. ADD_TO_CMD_LIST 
DA 11 00054 RB 1 


Be Se Se Se Se Se Se Se Se Be Se Be Be Se Se Ge Se Ge Ge Ge Se Fe Fe Se Se Se 


a ee ee ee 


1hesd “19 1:28:17 AxX-11 Bliss-32 V4.0-742 P 1 ! 
hit ts eee rat RC at ibe tg ec re age og! 
09 64 03 1 2s: BBC #3, FLAGS, 3$ : 0781 
40 AS OOF A PUSHAB  P.AAI : 
06 =A f D PUSHAB ROOT : 
62 F CALLS #2, ADD_TO_CMD_LIST ; 
09 64 3 063 3$: BBC #2, FLAGS, 4$ : 0782 
50 AS 9F 0006 PUSHAB P.AAK : 
AE 9F O006A PUSHAB ROOT : 
62 02 FB CALLS #2, ADD 10_¢yD_LIST ; 
09 64 61 €1 00070 4$: BBC #1. FLAGS, ~5$ : 0783 
64 a3 0074 PUSHAB P.AAM : 
AE 9F 00077 PUSHAB ROOT : 
62 0 FB O7A CALLS #2, ADD TO_CMD_LIST : 
6 . 7D 5$: BLBC FLAGS, 8$ ~ + 0784 
78 «OAS OOF 0080 PUSHAB pA AAO ; 
06 AE OF 0085 PUSHAB : 
62 0 FB 00 CALLS oe " DD_T0_CMD_LIST : 
E D5 00089 6$: TSTL ROOT : 0785 
A 12 00088 BNEG : 
0090 C3 9F 0008D PUSHAB P.AAQ : 
04 aE 9F 00091 PUSHAB ROOT ; 
62 9 FB 00094 CALLS #2, ADD_TO_CMD_LIST : 
E 04 00097 7$: CLRL ss = (§P) : 0788 
04 AE 9F 00099 PUSHAB ROOT : 
20 a2 02 FB OGur" CALLS #2, REVERSE_LIST : 
50 6E DO O00A0 MOVL ROOT, RO : 0790 
04 000A3 RET + 0791 


|; Routine Size: 164 bytes, Routine Base: S$CODES + O14F 


Oe Be Se Se Se Se Be Se Be Be Se Se Be Se oe Se Se Se 


If the last character is a colon, remove it. 


; 700 0792 #1 

; 701 07935 1 

: 70 07946 1 ! This routine calls the CLI and builds a List o: cmdtbl_blocks to hold 
; At, Bry? : : the Logical names specified by the user. 

: 705 $799 1 routine get_lognam = 

; 70 07 local 

: 708 0800 desc: $bblock(dsc$c_d_ bin], 

; 0801 root: ref cmdtbl_block initial(O); 

; 710 080 

s 7 080 macro 

3 as 0804 add_(x) = add_to_cmd_list( root, x ) %; 
s 71 She while 

3; 716 53 gin 

3, 15 80 Sinit_dyndesc (desc); 

; ay 0808 cli$get_value(Zascid’logname’, desc(base_)) 
; ri tts end 

3 ay ; do 

; begin 

; 720 8 : 

3 ¢£ 08 

3 & 

Z 4 


Ok ed ed ed ed ed 
DNOUE WO 


1 
7 
i OS ite ch$rchar(.desc(dsc$w_length]+.desc(dsc$a_pointer]) eql ':' 
725 .™ in 
726 OB aay 


~ 


Bi i i i i i, i 
ME wn — 


— 


"e = ,desc 
ibSscopy_dxdx (tmp 


end; 
add_(desc(base_J); 
end; 

if .root eql 0 


DWONOUVEWN—O0 


RUNNIN 


fojelejoia=) 
cece 


return .root; 
end; 


00 65 6D 61 6E 67 6F 6C 00088 
344344 454 
00000000" 000C4 
00 00 00 2a 000C8 
010€0001 Q00CcC 
00000000" 00000 
0000 00000 

5E 10 C2 494 

7E D4 0000 
OC AE 020E0000 8F b0 00007 
10 AE 04 QO00F 

OC AE 9F 0001 

0000" CF 9F 0001 
000000006 9¢ FB 00019 
4 e? 00 4 

0 OC AE 3C 000 
0 10 =A 0 00027 
& 6 1 00028 
1A 12 Q002E 

04 AE OC AE ag 00 
04 AE D7? 00035 
08 AE 10 AE 00 00058 
8 AE 9F 00030 
AE OF ooee 

000000006 00 02 FB gage 
OC AE 9F OO04A 
04 AE 9F 00040 
FESE = CF 02 FB 50 
BO 11 00 23 

ge 3 5 
c- 2 059 
0000" CF 9F 00058 
04 AS 9F O005SF 
FE2C CCF 02 FB 00062 


a 


abe, 
1eSepm 1986 42:69:57 


mp: vector([2); 
wot: etek lar: 


AX-11 Bliss-32 V4.0-742 
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. desc(base_)); 


q then add_( Zascid ‘*" ); 
reverse_list( root, %fieldexpand_(cmdtbi_l_next.0) J; 


-PSECT SPLITS,NOWRT,NOEXE,2 


P.AAT: .ASCII dhognans\<o> 
P.AAS: .LONG 17694727 

-ADDRESS P.AAT 
P.AAV: .ASCII \#\<0><0><0> 
P.AAU: .LONG 17694721 

ADDRESS P.AAY 

-PSECT S$CODES,NOWRT,2 
GET_LOGNAM: 

«WORD Save nothing 

SUBL2 #16, SP 

CLRL nee 
1$: MOVL #34471936, DESC 

CLRL DESC+4 

PUSHAB 

PUSHAB P.AAS 

CALLS a¢e gf {SET wae 

BLBC R $ 

MOVZWL DESC, RO 

ADDL2 DESC+4, RO 

MPB (RO), #58 

NEQ ra} 

MOVZWL DESC, TMP 

ECL T 

VL DESC+4, TMP+4 

PUSHAB DESC 

PUSHAB TMP 

CALLS #2, LIBSSCOPY_DXDXx 
2s: PUSHAB DESC 

PUSHAB ROOT 

CALLS #2, ADD_TO_CMD_LIST 

BRB 1 
3$: TSTL ROOT 

BNEQ 4$ 

PUSHAB P.AAU 

PUSHAB aad 

CALLS #2, ADD_TO_CMD_LIST 


——— ee 


SHO o6 1S-sen-1966 01:28:17 yARet1 Blieg=32 v4.0-742, Page 23 


“ pe 2889 4$: ee , ; 0827, 
FE42 cf he O6¢ CALLS ae REVERSE_LIST : 
0 6E p 0 90071 HOVL ROOT, RO + 0829. 


3 Routine Size: 117 bytes, Routine Base: SCODES + 01F3 


$s 


H 1 
16-Sep-1984 01:28:17 AX-11 Bliss-32 v4.0-742 
1o-808- 1382 93:88:45 fet iute sre SHOWLOG.832;1 
: Little routine to check the protection on a Lnmth block 
routine check_prot(x: ref $bblock) = 
begin 


. 
§ 1 

1 
5 Literal 

pro_mask = grata reed: ! Protection mask 
if not *xCinmth$v_shadreable] then return true 

else if .x pnmeney os icgctory then return true $ 977 
else if .xLinmth$l_orb] eql 
ae return lnm$check_prot (x 
end; 


then_return true 
base_J, pro_mask, .ctl$gl_pcb, 0); 


083C 00000 CHECK_PROT: 
WORD Save R2,R3,R4,R5,R11 


51 04 AC 00 00002 MOVL Xx, R 
09 61 €E9 00006 BLBC (R1), 1% 
05 61 01 E 00009 S #i, (R1), 1$ 
05 Al 05 0000D TSTL 5(R1 
04 if 00010 BNEQ  2$ 
50 01 D 00012 1$ MOVL #1, RO 
04 0001 RET 
55 D4 0016 2$ CLRL sR 
54 000000006 00 00 0001 MOVL  CTLSGL_PCB, R4 
01 DO 0001F MOVL #1, R 
000000006 00 16 90028 JSB LNMSCHECK_PROT 
04 00028 RET 


; Routine Size: 41 bytes, Routine Base: $CODE$ + 0268 


rout ine recheck tables: novalue = 
n 


When the code reenters kernel mode, there is always the possibility 
that some logical name table found by pet relevent enies got deleted, 
or is no longer accessible (which is okay per se, Since we really don't 
need to find the lnmth block again). 


However, it is possible that one of the Lnmth blocks got deleted and 
reused as another (nmth block. This means that we may be displaying 
logical names that the user has no business seeing! 


This routine prevents the above security hole, by the following method: 
For each table in known_list, we find the table again (by name or by 
calling for_each_inmth and checking the known pa tante value), and verify 
that the the table (this prevents the security 


Niietedeteteieieted 2239 29 Ps 


user has read access to 
hole; we should also check that the tables have the same name and 
attributes). If it doesn't check out, the known_l_inmth value is zeroed; 
giace jase? tenle is never zero, we'(L not find any more logical names 
or this table. 


1 
1 


OOOCOCOCOCOCOOCOOCOOOOOOoCoOSoO 


ie 


| 


Lad 


ie | 


oo soooeeed tut 
SSBUEAFAVAS SaISAE 


> pee SJ 


Secsse 


MEW 0 OOwoufwnoO 


POROPRORIPONY @ 2 OO OO 


Cone 


0 00 0d 0d Od Od Cd Od Od G9 Od Cd OD 0d Gd Gd Od Cd Cp GD CD 


909 


4 
4 
4 
5 
5 
5 
5 
5 
6 
6 
6 
4 
4 
4 
5 
5 
: 
5 
4 
& 
4 
4 


6 
09 
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ROM Pw sates os ae 


—OCOOVOU Sw oO 


iJ 
oo 
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: This is a pain. 


local 


known 
an_ 7 ‘bloc 
sta atus; 
register 
rt = 5: re 


: Initialize t 


ref known_block, 
k: rt_block,~ 


f rt_block initial (an_rt_block(Cbase_J); 
he rt_block for the table name 


rt reba fteosd = 0 = psl$c_ user; ! sccesteple fe poteor tty mode 
rt b_fl ! Initialize flag 
rt(rt_v “case = asiies i tthe eed oe 


known = known_ 
while (known = 
-knownl 
begin 
local 
table: 
Lnmth: 


table = .k 

etotes = | 

bas 

while true 
begin 


if onot 
then 


be 
age 
t 


“et 


List - Zfieldexpand_(known_l_next,0); 
-knownCknown_l_next]) neq 0°do 
known_|_ troens a neq 0 then ' Have we already trashed this? 


ref table_block, 
ref Sbblock; 


nown(known_|_ table] 
nm$setup(. faBle(table_ t_name], 1+tableCtable_t_name], 
e_J; inmth); 

° 


-Status 


in 
Status eql ss$_toomanylnam 
n 
_fttrt_ A _epthd = .rtC(rt_b_depth] - 1 ! Backup depth 


"ee in 

EasenC nea. L_lnmth) = 0; 

on St aep ! Presumably no more names 
end; 


end 
else if 
- LnmthCbase_) eql .knownCknown_l_(lnmth] 
e 


n 
be 
' 


gin 


| oe found what may be this table (it has the same address). 

Check the protection. 

We should also check for the same name and attributes, but 
this prevents any security violations, even though we may 

| Sits or incorrect information. 


if not check _prot(lnmthCbase_J]) then knownCknown_l_inmth] = 0; 
exitloop; 
end; 

rt(rt_b_tries] = rt c maxtries: ! Reinitialize number of tries 


status 


4 inm$table(ftlbase. J > Lnmth): 


1 
snow. og WbeSep-1984 1:28:17 yanctt Bling=32 v4.0-742 Page 26 


: 1 9 § end; 
3 ¢ 9 end; 
3 924 end; 
OOFC 00000 RECHECK_TABLES: 
- «WORD Save R2,R3,R4,R5,R6,R7 : 0844 
2 30 ¢2 0000 SUBL2 #4 : 
5 6f 9E 0000 MOVAB AN_RT_BLOCK, RT + 0872 | 
65 8 0008 MOVW #3, (RT) : 0876 | 
01 AS 01 0008 BISB2 #1, 1(R RT : 0878 | 
54 0000" CF 9E OO00F MOVAB KNOWN. LIST, KNOWN : 0880 | 
54 64 00 00014 1$: MOVL (KNOWN). KNOWN : 0881 | 
4E 13 00017 BEQL 6s « 6$ ; 
06 «AG d3 0019 TSTL 4 (KNOWN) : 0882 | 
F6 13 O00IC BEQL =s«1$ : 
50 08 Ad 00 O01 MOVL §§ 8(KNOWN), TABLE : 0888 | 
5 17, AO 9E 000 MOV 3 (TABLES, R3 > 0889 | 
52 16 AO 9A 00026 MOVZBL 22(TABLE), : 0890 
000000006 00 16 90 A JS LNMSSETUP : 
57 50 D0 000 9 2$ MOVL RO, STATUS : 
56 51 D0 000 MOVL Re}, 1f : 
OE 57 EB 00036 BLBS STA 3$ ; 0893) 
00000374 «BF 57 D1 00039 CMPL STATUS: #884 > 0896 | 
14 fF 00040 BNEQ 5 : | 
02 AS 9 9004¢ DECB (RT) : 0898 | 
14 11 0004 BRB F | 
06 AG 56 D1 00047 38: CMPL LNMTH, 4 (KNOWN) : 0906 
OE 12 90048 BNEQ $ 3 
56 DD 00040 PUSHL LNMTH : 0916 
84 OAF 1 FB 0004 CALLS #1, CHECK_PROT : | 
BE 50 € 900933 BLBS : : 
04 A& D4 00056 4s: CLRL 4 (KNOWN) : 
B9 11 00059 BRB is : 0908 
03 AS 01 8€ 00058 5$: MNEGB ag3 (81? : 0920 
000000006 00 16 0005F JSB wh STABLE : 0921 
C9 11 00065 BRB 2$ ; 
04 00067 6$ RET > 0924 


; Routine Size: 104 bytes, Routine Base: S$CODES + 0291 


Be Se Be Be Be Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se 


no oe ooo a — 


K 1 
16-Sep-1984 7 AX-11 Bliss-32 V4.0-742 Page 27. 
‘Yoe~b00 10-Sep-1986 93: $8: 4) CLIUTL.SRCJSHOWLOG.832;1 . 3 
5 5 1! This routine does a lookup on the known list. 
9 § 1 i It looks up the eéarese of a Lnmth bloc 
9 1 / if found, it returns the address of the table_block, 
: , 8 : i if not found, it returns zero. 
0 9 1 routine lookup_table(inmth_address) = 
1 9 begin 
r ; local 
9 known: | Pay block; 
44 934 known = known_list - Hiieldexpand,¢ cknown -\- next,0); 
5 935 while (known = .known[known_l_nex€ “do 
§ i § .knownCknown_L _lnmth] éql {K-. address 
n 
848 938 return .knownCknown_|_table]; 
return 
49 939 0; 
50 940 end; 


0000 00000 emetcua 


«WORD Save nothing : 0930 

50 0000" CF 9E 00002 MOVAB KNOWN_LIST, KNOWN + 0934 

50 60 0 0007 1$: MOVL (KNOWN), KNOWN ; 0935) 

OC 13 QOOOA BEQL 3 

04 Ac 04 AO 01 0000C CMPL 4 (KNOWN), LNMTH_ADDRESS 3 0936 
F& 12 90011 BNEG : | 

50 08 Ad 00 00013 MOVL 8(KNOWN), RO : 0938) 

04 00017 RET F 

50 D4 00018 2$: CLRL RO 3; 0939 

04 OO001A RET + 0940 | 


; Routine Size: 27 bytes, Routine Base: S$CODES + 02F9 


pa 
838 0948 : This routine adds a inmth block to the List of known tables. 
855 945 1 routine add_to_known( 
$26 nee 1 inmth:~ ref $bblock | 
85 94 1 = 
oe Be ee 
860 9990 i Find whether we already know (about this Lnmth entry | 
1 951 ' If we already know about it (or don't want the user to know about it, 
¢ 26 ! because of protection) then return 0, 
Rar Otherwise, return a pointer to the table block 
5 955 local 
326 known: ref known_block; 
33 | 
3 339 ! Check protection on the table | 
71 0961 if ot check_prot(\nmth(base_}) then return 0; 


Be Se Se Se Se Oe Ge Se Se Ge Be Se Se Be Se Se Ge Se Se Se Se Se Se Se Se Ge Se Se Ge Se Ge Ge Se Se Fe ae 
@ 
@ 
0 


HEseetate Cah? 


' See if it's already on the known List 
If so, return a zero. 


if lookup_table(inmthCbase_J) neq 0 then return 0; 


be 
begin Lnmb = .Lnmthilnmth$l_name): Sbblock; 
Local table: ref table_block; 


i Check the access mode on the table 
f .lnmbClnmb$b_acmode] gtru .acmode then return 0; 


i 
' 
Create and initialize a table_block 

table = util -allocate(table_k_size + .lnmbCinmb$t nened?i 

ae . LambC Lnmb$t_nameJ r trmbt LnmbSt name), table(table_t_name]); 


table “b = .LnmthClnmths6_ f : 
table(table_l-bytes] = .linmthCinmth$l— byeeed: 
table(table_l“byteslm] = pinata _bytesim]; 


i Create and initialize a known_bloc 
Add the known_block to the List - known tables 


aE = util_allocate(known_k i 

knownCknown_T_(inmth] = LnmthlBase_ 

known(known-|"“table] = tableCbase_ 

util gol idothpbuntapown, L_next), kfoun. List, known(base_J); 
return table(base_ 


table(table_b_acmode) = .lnmb{lnmb$b b ecnode : 
table- =flags] = 


end; 
end; 
O1FC 00000 ADD_TO_KNOWN: 
~ WORD Save wy” tentersieemeammiaeen 
58 04 ac 00 9002 MOVL LNMTH, RB 
58 DD 000 PUSHL RB 
FF47 gf 2 4} 444i CALLS #1, CHECK _ PROT 
F 0 €9 00000 LBC RO 1¢ 
58 DD 00010 PUSHL RB 
CF AF zz, 0012 CALLS #1, LOOKUP_/ABLE 
g D5 00 16 STL —- RO 
1 0 1 BNEQ ~=s«1$ 
56 09 AB OD 1A MOVL 9(RB) 
0000" CF 0B ag 91 0 IE CMPBs«éd11:(R6S, RE CMODE 
49 1A BGTRU I$ 
7E 11 AG OA 0 6 MOV ZBL 17(R6) yes) 
6E 17 CO OO02A ADDL #25, ¢ 
FCCA (CF 01 FB 0002D CALLS #1, utiL ” ALLOCATE 


AX-11 Bliss-32 V4.0-742 
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row S| 


| 
} 
0945. 
0961 | 
} 
{ 
| 


0967 | 


0971 | 
0976 | 


0980 


M ke 
S 19-8 Sep 7 AX-11 Bliss-32 V4.0-74 Page 29 
500-006 14-5 gep 71982 93: 88; ¥ CLIUTL-SRCISHOWLOG. B53 1 . (35 
7 50 00 OV RO, TABLE : 
0 11 5 BR nOvzBL vireo. RO + 0981 
16 A? 17 =O : ; 0 8 mMOVC3 Ro 17(R (RG) 2 22( TABLE) : 
14 =A 0B A 4 MOVE 11(R6), 20(TAB : 098 
15 A? 6 3 46 MOVB = (RB) S1CTABLED : 0983. 
08 A7 1D AB 7D OO04A mMOVa 29(R8), B( TABLE) + 0985 
C OD 4f PUSHL #12 : 0990 
FCA6 CF Be 51 CALLS 48 UTIL_ALLOCATE g 
8 AO : DO 00056 OVL R8, 4( KNOWN) 3 0991 
| 8 a0 D SA OVL TABLE. 8 (KNOWN) + 0992. 
0 pp 3 PUSHL ; 0993. 
0000' gf F 6 PUSHAB KNOWN IST ¢ 
9 DD 00064 PUSHL KNOWN : 
| FCE1 cf 0 FB 0066 CALLS #3, UTIL SLIDE ; | 
0 57 D0 00068 MOVL TABLE, RO > 0994 | 
| 04 $44 RET : 
50 D4 4 1$: CLRL RO ; 0997 
04 00071 RET : 
; Routine Size: 114 bytes, Routine Base: S$CODE$ + 0314 
: 908 0998 #1 
; 909 0999 1 
; 910 1000 1 ! This Little routine determines whether a Lnmth table name 
; 911 1001 1 ! matches any of the table names speci tion b — user. 
; alg 4 : It is called via the routine for_each_|nmt 
3 ay 4 1 routine match. Lnmth( Lnmth: ref Sbblock, List: ref cmdtbl_block ): novalue = 
3 e 
:; 916 1908 rhe name = hjectenseet rat name]: SpblockidecSe _d_blnj; 
: 917 100 bind inmb = .LnmthClnmth Tnane]: bblock; 
; 918 1008 local table: ref table 
; 919 1009 if fmg$match_name(. Laat Lockée name], 1+Lnmb LnabSt _name), 
: 920 1010 -name(dst$w_ Lengt -nameldsc$a printers) 
: 983 +h af (table = add-to_ ae base_J)) neq 0 
; en 
: 358 1918 util_slide(tableCtable_l_next], ListCcmdtbl_l_table], tableCbase_)); | 
; 9246 1014 1 end; | 
| 
007C 00000 MATCH_LNMTH: 
.WOR Save R2,R3,R4,R5,R6 3 1006 | 
51 08 ac 08 C1 0000 ADDL3 #8, LIST, R1 > 1006 | 
| 56 04 AC DO 0000 MOVE” = LNATH, R6 : 1007 | 
2 09 =A bo 0008 MOVL (R6), RO 3 
5 12 A 7 900F MOVAB 18(ROS, R3 > 1009 | 
55 04 «Al 13 MOVL 4(R1), R5 ; 
54 61 3C 0001 MOVZWL (R1), R4 : | 
| 52 11. AO 9A OOOIA MOVZ2BL 17(R6), R2 ; 
000000006 6 16 IE JSB FMGSMATCH_NAME ; 
19 E 85 LBC RO, 1$ 3 
6 0D 00027 PUSHL R6 ; 1011 


N 5. 
bo IESegHats REE EU ONMRRUCS,MOe 


| 
FF60 =F 1 Ff 029 CALLS #1, ADD_TO_KNOWN : 
| 0 0D TSTL = TABLE ; | 
F 1 BE QL o | 
DD PUSH TABLE 3; 1013. 
| 7E 08 AC oe C1 000 ADDL #4, LIST, -(SP) : 
g DD 00039 PUSHL L : | 
FC9A OCF 03 FB 000 3 CALLS #3, UTIL_SLIDE $ 
04 00040 1$ RET 3 1014 
; Routine Size: 65 bytes, Routine Base: SCODES + 0386 | 
; 925 1015 1 | 
3; 9 $ 1016 1 
; 9 1017 1°! This comparison routine is used for sorting table_blocks. 
; 4 : 1918 : It is called via the routine sort_list. 
; 930 1020 1 routine cmp_table( tl: ref table_block, t2: ref table block ): ink_compare = 
; 931 1021 begin | 
3 838 10 § return ch$compare( 
; 9 19¢ -tiftable_t_name], 1+tiCtable_t_name] | 
3; 934 1024 *t2 table- t_name], 1+t2(table_t “name)); 
: 935 1025 end; 
| 
DD 00000 CMP_TABLE: 
PUSHL RG $ 1020 
53 6 AO $5(T)). R3 : 102 
52 6 Al 9A 00006 MOVZBL 22(T2), R2 3: 1024 
54 01 DO OOO0A OVL #1, RS : 1022 
52 00 17 Ao 53 2D Bote CMPCS R3, 23471), #0, R2, 23(T2) : 
17 ~All ep 3 
03 1A 00015 BGTRU 1$ 3 
54 01 D9 00017 SBwC #1, R4 3 
50 54 D0 genie 1$: MOVL R4, RO 3 
10 BA 0001D POPR #*M<R4> : 1025) 
05 0001F RSB : 


3; Routine Size: 52 bytes, Routine Base: S$CODE$ + 03C7 


! This comparison routine is used for sorting log_blocks. 
It is called via the routine sort_list. 


rout ine cmp. log( ti: ref log_block, t2: ref log_block ): lnk_compare = 
e 
oq 

= chSconp 


ot} {09 x ye . 1#tiClog_t_name 
see t“name mites t “rane ds 


SOOCOOCOCCoOCOoooo 


eee eee 
oo MEW —O OONnNO 


Be Se be Be Be Se Se Ge Be Se Se Se 
Sb 8 He sd 2 4 2 ss 
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© 
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oO 
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oO 
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] 2 
s 18-58 -1984 01:28: AX=-11 Bliss-32 V4.0-762 Pp 1 
vite itd ak Sats i Pet SC ca lg Sh pe tS or 
; 9469 1039 begin 
; 950 1040 tilLlog_v_equal] = true; 
; 951 104) t2liog_v_equal] = true; 
A Bh ho ne 
5 return .S; 
E 954 1044 end; 
0 BB 00000 CMP_LOG:PUSHR #*M<R4,R5> + 1030 
55 34 ti itd —"MOVL~=sRT,, RS : 
50 DD 0000 PUSHL R : 
50 E OA 1 000 ADDLS #10, T1, RO : 1035 
1 60 9A 00008 MOV2BL (ROS, Ri : 
0 OA AS 9A 000 MOVZBL 10(T2), RO > 1036 
4 01 DO 0001 MOVL #1, R4& t 1034 
7E 33 08 ci 001 ADDL wii, T1, -(SP) : 
50 00 9E 1 2D 00019 cMPCS §R1, a(SP)+, #0, RO, 11(T2) : 
0B AS 0001¢ : 
03 1a 000 BGTRU 1$ : 
54 gi D9 000 ‘ SBWC Of #1, RG : 
50 4 D0 00025 1$: MOVL RA, : 
0D 12 90028 BNEQ 2$ + 103 
51 6E 08 C1 O002A ADDL3 #8, T1, R1 : 104 
61 80 BF 88 000¢ BISB #¢8, (R1) : 
08 AS 80 8F 88 000 BISB2 #128. 8(T2) : 104 
5E 04 CO 00037 2$ ADDL2 #4, §P : 104 
0 BA OO03A POPR #*M<R4,R5> : 
05 0003c¢ RSB : | 


3; Routine Size: 61 bytes. Routine Base: SCODE$ + 03E7 


; 955 1045 1 

; 956 1046 1 ‘ 

; 957 1047 1 ! This routine creates a log_block to hold the information about a logical name 
; 328 Ho : } and Links it to a table_block. 

> 960 1050 1 routine new_\nmb(inmb: ref Sbblock, table: ref table_block) = 

; 961 1051 begin 

; 306 1926 local 

; 96 105 size, 

: 964 1054 log: ref log block, 

; 965 1055 inmx: ref $dbTock, 

: 266 1938 unny: initial(true); 

; 9 105 ; : 

3 4 1028 Do we really want this logical name? 

; $0 1999 if .Unmb{lnmb$b_acmode] gtru .acmode then return 0; 

; 97 106¢ ! Find the end of the relevant information. ees. 

; o7 ez : Aiso, make sure we find at least one logical name with a positive index. 
; 975 1988 inmx = .inmbCLinmbSt_name) + 1+Lnmb{ LnmbSt_name); 

: 976 1 while not .lnmx(inmx$v_xend) do 


ute a 


| 


T 


: 97 He: 

; 378 1 

: 980 19 0 

; 981 1071 

: 9 ¢ 107¢ 

: 9 107 

; 9 1074 

; 985 1075 

; oB9 1077 

; 988 1078 

: 989 1079 

: 990 1080 

: 991 1081 

: 99 108¢ 

: 99 108 

> 99% 1084 

: 995 1085 

: 996 1086 1 
12 
42 
52 

OA a6 

7E 


rEosto-t9pe 99:38:17 


begin 
if .tnmxClnmx$b_index] ge funn 


th = false; 
Lnmx = “[nmxt inaixSt xlation . T+Lnmxe Unmx$t_xLat ion); 


end; 
if .funny and not .inmb[inmb$v_table] then return 0; 


' Now that we know the beginning and end of the relevant information, 


: allocate a log_block to hold it. 


size = inmx(base_) - LnmbC LnmbSt_nane + 1¢%fieldexpand_(lnmx$v_xend,0); 


log = util_allocate(log k_size + .si 
ch$move(.sTze, inmbLinmBSt_name], | 


Log(Tog_l_table] ="table(base 


05 Log_t name) ; 
util _slide(lo eS tablet , table(table_l_log], log(base_]); 


Logl logb- flags) = .LnmbLinmbSb_ flags); 
log Log_b_acaode) “) Lnmb$B_acmode); 
= false; 


end; 
OOFC 00000 NEW_LNMB: 
~ WORD 
3$ 01 pd 0000 MOVL 
5 06 AC 00 0000 MOVL 
0000" CF 0B A? 91 00009 MPB 
69 1A OO00F BGTRU 
50 11 A7 9A 0001 MOVZBL 
51 12 A740 9E 00015 OVAB 
61 02 34 OOO1A 1$: BBS 
01 Al OOO1E TSTB 
02 19 00021 BLSS 
D4 000 H CLRL 
50 9A 00025 2$: MOVZBL 
51 05 A140 9E 00029 MOVAB 
fA 11 Sait 43 BRB 
05 ¢ E9 00030 3$: BLBC 
10 A? 0 ft 4 3 BBC 
2§ 11 A7 0038 4$: MOV 
5 51 C 808 C SUBL 
01 i § 0035F SUBL 
OB OA F a oF PuS 
FBA1 CF 01 FB 00046 CALLS 
26 0 » Bpbee MOVL 
11 A 2 28 Q004E movc3 
6 DD 00054 PUSH 
08 AC 10 C1 00056 ADDL 
33 DD 00058 PUSHL 
FBDA CF 03 F 005D CALLS 
046 Ab 08 ac 3 Bobs MOVL 
08 A6 1 A 006 MOVB 
9 Ab oe A? 90 pgs MOVB 
B Ab 8F 8A 00071 BICE2 


av 


e R2,R3,R4,R5,R6,R7 
UNNY 


AX-11 Blis 
CLIUTL.SRC 


#1, UTIL_ALLOCATE 
SIZE, 17(R7), 10(LOG) 
#16, TABLE, -(SP) 
#3, UTIL_SLIDE 

TL 


SHOWLOG.832;1 


Be Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Ge Se Se Se Se Se Be Se Se Oe Be Se ® 


Pa 32 
ote (9) 


“Vou=000 1besep-19 6 01:48:17 one Oi tegen V4.0-742 : Page (3 


v04 14-Sep-19 2 LIUTL.SRCJSHOWLOG.832;1 
50 56 D0 O76 MOVL LOG, RO ; 1085 
4 000 RET 3 
50 Be O7A 5$: CLRL RO ; 1086 
4 07C¢ RET 3 


; Routine Size: 125 bytes, Routine Base: SCODES + 0424 


338 088 

399 089 ! This routine determines whether a inmb block is relevant, and (if so) creates 
000 44 ' a@ log_block to hold the information, and Links it to a table_block. 

ed 34 It is called via the routine for_each_inmb. 

008 $98 routine match_lnmb( Lnmb: ref $bblock, dummy ): novalue = 

004 094 begin 

005 095 Local 

ooe 4] table: ref table_block; 

008 098 ! Verify that this is one of the desired logical names 

009 0 It must be in an acceptable integrity mode 


It must be in one of the specified tables : 
it must match one of the logical names from the command Line 


ref cmdtbl_block; 


LnmbC inmb$b_acmode) gtru .acmode then return; 
table = lookup_tablel.inmb{inmb$l_table])) eql 0 then return; 


cmdnam_list - %fieldexpand_(cmdtbl_l_next,0); 
hile (List = .ListCcmdtbl_!"next]) neg 0 do 


w 

begin 

bind name = List(cmdtbl_q_name]: Sbblock(dsc$c_d_binj; 

if fmgSmatch_name(.inmb[inmb$t_name], 1¢+Lnmb(limb$t_name], 
-name(dsc$w_length], .name[dsc$a_pointer]) 


WI OSBIFARWUIOD 
w 
ae A 


DWNAUESWN —$OOONOUS WN oO 
— I I OOO 
=POIPINIPININIWIE BS HUNT B AAAI AAAI IPPON PURIPUD 2 St 

ed 
~— <r 

— 

nee 

w 

Lad 


POPIPIPIPININNURD 2 8 * 


then 
exitloop false; 
nd ) 


en 
return; 
end; 


Link the new Lnmb block to the table 


lolol aloo lolololelejelelelelelelelelolelelelol a) 


new_lnmb( inmb{base_J, table[base_) ); 
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ead ae dd td ad td a 8 8 dd td a 2 a a 8 tt 


ee a ed ad = ad a Ps — 8 i“ ts 1 2 4 2 = = 
ee a a te 2 ss 2 1 


forororororornn 
NOVUEWN —OOONOUS 


oooo 
a 
~ 


end; 


O3FC 00000 MATCH_LNMB: 
WORD Save R2,R3,R4,R5,R6,R7,RB,R9 : 
57 04 AC pd0 00002 MOVL LNMB, R? : 


_—— 
3 
Nw 


2 
S 1b-s6 -1984 01:28:17 AX-11 Bliss-32 v4.0-742 
vives tid 12-8 08-1 9b 93:88:35 tet tute sre SHOWLOG.832;1 
0000" CF 0B A? 91 00006 CMPB =—s«11(R7),, ACMODE 
3F OA 8 C BGTRU 2 
0c A? DD PUSHL 12(R7) 
FEG2 cf 1 FB 0001 CALLS #1, LOOKUP_TABLE 
9 Q D y016 MOVL RO, TABLE 
1 001 BEQL «= 2$ 
6 og i CF GE 338 MOVAB CMDNAM_LIST, LIST 
8 12 A? 9E 000 MOVAB 18(R7)> RB 
6 $6 D 90 4 1$ MOVL (LIST). LIST 
4 13 00027 BEQL es 
0 08 A6 4 00 MOVAB &(LIST), RO 
5 04 a0 p 990 D MOVL 4(RO), RS 
4 g C 00031 MOVZWL (RO), RS 
33 8 DO 90 MOVL RB R3 
2 11. A? 9A 00037 MOVZBL 17(R7), R2 
000000006 99 16 000 JSB FMGSMATCH_NAME 
£0 0 £9 00041 BLBC —_«aRO,_:18 
0280 8F BB 00044 PUSHR #*M<R7,R9> 
FF36 CF 02 FB 00048 CALLS #2, NEW _LNMB 
04 0004D 2s: RET 


Routine Size: 78 bytes, Routine Base: S$CODE$S + 04A1 


1038 1128 #1 

1039 i163 1 

1040 1130 1 

Ht: \\e3 ' Get the descendants of the Lnmth block, and add them to the table block 
1068 11 i 1 routine get_descend( 

1044 11 1 e: ref table_block, 

1045 1135 «(1 inmth: ref $bblock 

1046 1136 1 ): novalue = 

1047 1137 begin 

1048 1138 Local \ 

1049 1139 subLnmth: ref $bblock; Mee. 

1050 1140 sublnmth = LnmthCinmth$t_child] - Zfieldexpand_(lnmth$l_sibling,0); 
1051 1141 while (sublnmth = .sublnmth(lnmth$l_sibling]) neq 0 do 

1926 ee begin 

105 114 local 

1054 1144 subtable: ref table_block; 

1055 1145 if (subtable = add_to_known(sublnmth(base_})) neq 0 

1056 1146 then 

1057 1147 4 begin 

1058 1148 4 util _slide(subtable([table_l_next], 

1059 1149 4 tableLtable_| child], sibtable[base_)); 

1060 1150 4 get_descend(subfable(base_], sublnmth(base_J); 

1061 1151 4 

se 1136 3 else — 

106 1153 4 begin 

1064 1154 4 : 

1065 1155 4 ! Note that we keep looking for descendant tables, 

nee 1338 4 ! even if we've run across one that we've either seen before, 
106 1157 4 ! or have no privilege to read. 

Hv 4 1138 ; Note: these get Linked to the table, rather than the subtable. 
199 1160 4 get_descend(table[base_], sublnmth[base_)); 


Page P .. 


BeBe Se he Fe Be Be Fe Be Be Be Be Be Be Be Be Be Be Be Se 


1108 


mtr 


Bee Be Oe Bee Oe Oe Be Be Be Oe Oe Be Se Be Be Oe Oe Be Se Se Ge Be OH Oe Oe Oe Oe Oe we Se Oe Oe Oe Oe Oe Oe Oe Se Oe Oe as OH Oe OH Oe Oe Oe Oe Oe Oe ee Oe Oe Oe ee 


wie 
1 as 
1074 1164 
1075 1165 


52 


7E 


7E 


Routine Size: 73 bytes, 


fae 
16-Sep-1984 01:28:17 AX-11 Bliss-32 v4.0-742 
1a-sep-19 4 93:88:59 CLIUTL.SRCJSHOWLOG.832;1 
4 end; 
end; 
sort_list( table[table_i_child], %fieldexpand_(table_l_next,0), 
cmp_table ); 
end; 
000C 00000 GET_DESCEND: 
Nene Save R2,R3 
08 ac 04 C 9002 SUBL3 #4, LNMTH, SUBLNMTH 
52 15 A2 DO 00007 18: MOVL 21(SUBLNMTH), SUBLNMTH 
¢8 1 0008 BEQL 4$ 
DD 0000D PUSHL SUBLNMTH 
FE11 CF 01 FB 544 CALLS #1, ADD_TO_KNOWN 
53 50 0 0014 MOVL RO, SUBTABLE 
14 13 00017 BEQL 2$ 
53 DD 00019 PUSH SUBTABLE 
04 AC 04 C1 00018 ADDL #4, TABLE, -(SP) 
53 OD Ooo es PUSHL SUBTABL 
FBGA CF 03 FB 00022 CALLS #3, UTIL_SLIDE 
26 DD 00027 PUSHL SUBLNMTH 
53 DD 00029 PUSHL UBTABLE 
05 11 00028 BRB $ 
52 DD 0002D 2$: PUSHL SUBLNMTH 
04 AC ODD pO PUSHL TABLE 
CA AF 02 FB 00032 3$: CALLS #2, GET_DESCEND 
CF 11 00036 BRB 
FE9C CF 9F 00038 4$: PUSHAB CMP_TABLE 
7E 04 0003C CLRL -(SP) 
046 AC 04 C1 0003 ADDL3 #4, TABLE, -(SP) 
FB8E CF 03 FB 0004 CALLS #3, SORT_LIST 
04 00048 RET 


Routine Base: S$CODES + O4EF 


1076 1166 1 

1077 1167 1 

ire 18 : : Indices for getting to the process and directory tables via (nm$al_dirtbl. 
1080 1170 1 literal 

1081 1171 +1 k_process_directory = 1, 

108 11% 1 k-system_directory = 0; 

108 1173 «1 

Hs: 117 ' : A Little routine used by for_each_Iinmth, below. 

1086 1176 1 routine fe_inmth(Lnmth: ref Sbblock, rtn, prm): novalue = 
1087 1177 i 

1088 1178 local 

1089 1179 : ref $bblock; a 

1090 1180 p = inmth - Zfieldexpand (inmth$l_sibling,0); 

1091 1181 while (p = .p{lnmth$l_siBling]) néq 0 do 

1098 1156 egin 

109 118 (.rtn)(pCbase_J, .prm); 


we 3 


c— 


2 j 
1-56 -1984 01:28:17 AX-11 Bliss-32 V4.0-742 Pa 6 $ 
12-3 08- 1 9be 3:68:35 eet tute sRe SHOWLOG.832;1 - (33 _| 
11 fe_inmth(.pCinmth$i_child], .rtn, .prm); 
1185 end; 
11 end; 


' 
0004 00000 sas oenecenaa™ 


-WORD Save Rg : 1176 
2g EF AC YE 00002 MOVAB NMTH-21, P : 1180 
5 15 A2 D0Q 00006 1$: MOVL 1(P), P ; 1181 
16 135 OOOOA BEQL $ : 
Oc AC dd 0000C PUSHL PRM ; 1183 
52 DD O000F PUSHL P : 
08 C O02 FB 00011 CALLS #2, @RTN 3 
E 08 aC 7D 90015 MOVa RIN, =(SP) 3; 1184 
11 Ag DD 00019 PUSHL 17(P) é 
EO AF 05 FB 0001C CALLS #3, FE_LNMTH : 
E4 11 00020 BRB 1$ : 1181 
04 00022 2$ RET 3: 1186 
; Routine Size: 35 bytes, Routine Base: S$CODES + 0538 
; 1097 1187 1 
: 1098 t+ 4 1 ! This routine caaee over all Lnmth blocks, H 
3 9 +4 1150 ; and calls a supplied routine for each. : 
: 1101 1191 1 routine for_each_lnmth(rtn,prm): novalue = : 
; 1308 1338 egin ; : 
: 110 119 decr i from k_process_directory to k_system_directory do : 
3 1104 1194 egin ; 
3; 1105 1195 local : 
: 1106 1196 Lnmth ref S$bblock, : 
3 1107 1197 Lnmx ref $bblock, : 
; 1108 1198 Lnmb: ref spb lock: : 
3; 1109 1199 Lnmb = ..lnm$al_dirtblC.il; : 
; 1110 1200 inmx = .LnmbCinmb$t_neme) + 1+ nmbCinmb$t_name); 3 
31111 1201 ; Lnmth = 1¢LnmxClnmx$t_xlation); 3 
3 bE 1608 fe_lnmth(inmth(base_J, .rtn, .prm); ; 
3111 198 2 end; $ 
3 11146 1204 1 end; : 
0004 00000 FOR_EACH_LNMTH: : 
-WORD Save R2 ; 1191 ; 
34 01 DO sit MOVL #1, 1 : 1202 ; 
5 soososeosso}s DO 00005 1$: MOVL LNMSAL_DIRTBLCIJ, RO : 1199 | : 
51 6 go 0000 MOVL (RO), CNMB : ; 
50 Al 9A 00010 MOVZBL 17(LNMB) Rg : 1200, ; 
0 12 a14d 9F 9 14 MOV 18CLNMB) ERO . LNMX ; i 
0 5 19 ADDL #5, LNATH : 1201. ; 
E 04 ac 7D OO00IC MOVQ RTN, =(SP) : 1202 ; 


= iSoseo- 19g 09:3817 


Routine Size: 42 bytes, Routine Base: S$CODES + 0558 


AX-11 Bliss-32 V4.0-742 
CLIUTL.SRCJSHOWLOG.832;1 


LNMTH 
#3, FE_LNMTH 
I, 18 


SYSSCMKRNL 


e R2,R3,R4,R5,R6 
$GL_PCB. R6 
go #2, PSL, #0 


, SAVED_FP 


3: 1115 1205 1 
3 1118 1206 1 
3 111 1207 1 ! This routine ae over all Lnmb blocks, 
: 1118 : 4 : } and calls a supplied routine for each. 
; 1120 1210 1 routine for_each_lnmb(rtn,prm): novalue = 
s 1121 1211 in 
3 71 ; 1 \¢ 
3 11 121 rurs_in_ kernel (for _each_lnmb); 
: 116 ! + recheck tables?); 
3; 1126 1216 decr i from k_process_directory to k_system_directory do 
: 1127 1217 begin 
3 1128 1218 local 
: 1169 1s? bucket: ref vector, 
3; 11350 1220 Lnmhsh: ref $bblock; 
3 1131 1221 
3 11 ; \ss¢ inmhsh = ..lnm$al_hashtblC.i); 
311 \¢s bucket = inmhsh[base_] + Lnmhsh$k bucket; 
311 1224 decr i from not .lnmishClnmhsh$l_mask] to 0 do 
; 1135 1225 4 begin 
: 1198 1226 4 local 
: 1137 1227 4 lnmb: ref $bblL 
3; 1138 1228 4 lnmb = bucketl.iJ] - Bie. dexpand ae Si tah. 0); 
3: 1139 1229 4 while (lnmb = .LnmbClnmb$l_flink7) neq 0 
; 1140 \s 0 5 begin 
3 1161 1231 5§ (.rtn) (lnmbCbase_], .prm); 
: ee 1S3¢ 4 end; 
3 114 123 end; 
3 1144 1234 end; 
3 11465 1235 
3 1146 1 Ha Lam$unlock(. ctl$gl_pcb); 
3 1147 1237 set_ipl(0); 
3 1148 1238 
3 1149 1239 1 end; 
~EXTRN 
007C 00000 FOREACH LS: 
56 000000006 98 9E 0000 MOVAB 
0 oC 000 MOVPSL 
00 50 02 8 ‘ 0 CMPZV 
9 4 BNEQ 
0000° CF ? » 1 MOVL 
11 3 BRB 
5C 0D 19 1$: PUSHL 


Prowrm—BVOwW 


1210 
1213 


<a 


co 


Sete Se Ge Se ee Se Se Se Ge Se Se Se ee Bee Se Se Se Oe Oe Oe Oe Oe Se Be Oe Se oe 


2 

S 1h-s6 =1984 1:28:17 AX-11 Bliss-32 V4.0-742 Page 38 

vite tit 12-9 08- 1 3be 93:88:45 CLIUTL.SRCJSHOWLOG.832;1 . (3 
E2 AF 9F 00018 PUSHAB FOR_EACH_LNMB : 
000000006 00 02 FB 1 CALLS #2, SYSSCMKRNL ; 
0000" CF b4 cLRL SAVED _FP : 
54 DO 0002A 2 MOVL  CTLSGL_PCB, R4 : 
000000006 6 16 09 JSB LNMSL ; 

FCD4 cf 0 FB CALLS #0, RECHECK_TABLES : 12146 

5 1D 00 MOVL P : 1231 

50 0000000060045 09 0038 3$ MOVL LNMSAL_HASHTBLCIJ, RO t 1222 
2 60 p 004 MOVL (RO), CNMHSH : 

0c Ad ; 0046 MOVAB 12(R0), BUCKET : 1223 

§ $9 D OO4A MCOML (LNMHSH), R3 : 1228 

D6 00040 INCL | + 1228 
14 11 O004F BRB 6$ ; 
54 6243 DE 00051 4$ MOVAL (BUCKET)CIJ, LNMB ; 

54 64 DO 00055 5$ MOVL (LNMB), LNMB : 1229 
0B 1 00058 BEQL 6$ ; 

08 AC DD 0005A PUSHL PRM + 1231 
54 DD 90050 PUSHL L : 
046 BC 02 FB 0005F CALLS #2, @RTN : 

FO 1 00063 BRB 5$ : 1229 

9 53 F4 00065 6$ SOBGEQ 1, 4$ + 1224 

DO 55 «F4 00068 SOBGEQ 1. 3$ : 1216) 

54 66 DO 00068 MOVL  CTLSGL_PCB, R4 : 1236) 
000000006 00 16 0006E JSB LNMSUNCOCK ; 

12 00 DA 00074 MTPR #0, #18 + 1237 

04 00077 RET : 1239 


; Routine Size: 120 bytes, Routine Base: S$CODE$S + 0585 


Ba Be Se Oe Oe Oe Be Oe Be Oe Be Se Be Se ee Be Se 


oe 


2 
S 1b-se -1984 01:28:17 AX-11 Bliss-32 V4.0-742 Page 39 i$ 
v04 122808 =1 be 9:88:59 CLIUTL.SRCISHOWLOG.B32:1 . (10) V 
: 1} 1 } re } } Routines to dump the information about tables and iogical names. : 
: 11 § 1 tS 1 ' Because of the multiplicity of formats, the following technique is used : 
3 1154 1245 1 ! to produce an fao string and its parameters: : 
3 1155 124646 1! Two buffers are used, the fao control string is built in one, 3 
; ‘7 $ : rh : and (in parallel) the fao parameters are built in the other. : 
; 1128 : ‘3 : The following macros are used to append stuff to these buffers. 3 
: 1160 1249 1 macro ; 
3 1161 1250 1 ac_(x) = uplit byte(Zascic x) %, F 
8 1396 1 2) 1 appstr_(y) = append str} eresigi- ac_(y)) %, 3 
; 11e2 ; 26 : apparg_(y) = append_arg(argsl0], y) %; : 
: 1165 1254 1 routine append_str(args: ref vector, ascic: ref vector[,byte]): novalue = F 
: 1166 1255 § begin $ 
3 1167 1256 ¢ bind desc = .args{1J: vector(2]; ; 
3: 1168 1257 § ch$move(.ascic(0J), ascicliJ, .descl0J+.desc(1]); 3 
3; 1169 1528 descl0) = .descl0S + .ascic(0l; 3 
; 1170 1259 1 end; : 
OOFC 00000 APPEND_STR: | : 
WORD Save R2,R3,R4,R5,R6,R7 3: 1254 3 
50 04 AC 00 00002 MOVL ARGS, RO > 1256. : 
56 04 AO dO 00006 MOVL 4(ROS, R6 ; ; 
57 08 AC DO OOO0A MOVL ASCIC, R7 : 1257 | 3 
51 67 9A OO00E MOVZBL (R7) 3 3 
50 66 04 A6 C1 00011 ADDL3 4(R65, (R6), RO : | ; 
60 01 AZ 31 28 00016 MovCS R1, 1(R7), (RO) ; | ; 
50 67 9A 0001B MOVZBL (R?), RO : 1258) 3 
66 50 CO OQOO1E ADDL2 RO, (R6) 3 ; 
04 00021 RET : 1259) : 
; Routine Size: 34 bytes, Routine Base: SCODES + OSFD | 3 
tee 1389 + routs d_arg( ¢ vector, y) " ; 
3 routine append_arg(args: ref vector, y): novalue = ; 
3 1178 1566 : begin” — : . i 
3 1174 166 args(0) = argsl0J + 1; 
3 1175 7264 orgs -argst JJ = .y: 
3: 1176 1265 1 end: 
0000 00000 APPEND_ARG: : 
-WORD Save nothing 3: 7 61) 
4 6C D 608 INCL @ARGS : 1263 
50 4 BC D 00 MOVL @ARGS , 3: 1264 | 
04 BC40 8 AC 0009 MOVL  Y, @ARGSCRO) : | 
4 O000F RET : 1265 


K 2 
16-Sep-1986 01:28:17 VAX-11 Bliss-32 v4.07 Page 40 
aes Po aT eta Cio eee | 29° 10) 


vou~000 


Routine Size: 16 bytes, Routine Base: S$CODES + O61F 


3 1177 1266 1 

; 1178 1$ef 6 ; } Dump the quota for a logical name table 

: 1180 1 85 1 routine dump_table_quot(table: ref table_block, args: ref vector): novalue = 
BR ges 

: 1188 1 if: i Don't t dump the quota if this is a Siractery table, 

3 1i8¢ : 6 ! or if there is no Limit on the quota. 

: 1186 1275 if (.tableCtable_b flags) and Lomth$n _directory) eql 0 and 
3 1187 127 .table[table_ T "Sytesial neq 0 Pim 

3: 1188 127 then 

3; 1189 1278 begin 

3; 1190 1279 appstr_ ¥ CQuota=(!UL,!'UL)I]") 

3 1191 1280 apparg_( {tablet table. a bytes}): 

; 1196 1281 apparg_(.table(table_l‘ “bytesim)); 

3 119 1se6 2 end; 

3 1194 1283 1 end; 


-PSECT SPLITS,NOWRT,NOEXE,2 
P.AAW: .ASCII <19>\ (CQuota=(!UL,!UL)I\ : 


2c 4C 55 21 28 3D 61 74 6F 75 51 5B 20 20 
5D 29 4C 55 


-PSECT SCODES,NOWRT,2 
0004 00000 DUMP_TABLE QUOT: 
WORD 


Save R2 3: 1269) 
52 04 ac 00 00002 MOVL TABLE, R2 > 1275 | 
24 15 A2 01 £0 00006 BBS #1, 21(R2), 1$ ; 
08 A2 D3 00008 TSTL  8(R2) > 1276) 
1F 13 0000 BEQL '1$ F | 
0000" CF 9F 0001 PUSHAB P.AAW : 1279. 
08 AC DD 00014 PUSHL ARGS ; | 
B3 AF 0 FB 00017 CALLS rf: APPEND_STR F 
OC A2 DD 0001B PUSHL 12 (R2) : 1280 
08 AC DD OOO1E PUSHL ARGS : 
cB AF 0 FB 00021 CALLS #2 APPEND_ARG : 
08 A2 dD 00025 SHL  8(R2) : 1281 
08 AC OD 999 8 PUSHL ARGS ; | 
C1 AF 02 FB 00028 CALLS #2, APPEND_ARG ; 
04 0002F 1$: ET > 1283 


; Routine Size: 48 bytes, Routine Base: S$CODE$ + 062F 


1 
1 
1 


1 1 1 
136 1285 : Dump logical mame table attributes 


<a 


S 

voe~008 

: 119 1287 
; 1198 1 58 
; 1200 1289 
3; 1201 1290 
; 3 oe 1291 
: 120 1 3 
: 1204 129 
ee RS 
3 3 §$ 1 38 
3: 1208 129 
: 1209 129 
3 1210 129 
3: 7211 1300 
3 3 \¢ 1301 
3: 121 130 
: 1214 130 
3: 1215 1304 
: 1216 1305 
: 1217 1306 
: 1218 1307 
3: 1219 1308 
3; 1220 1309 
3; 1221 1310 
: \ss¢ 1311 
3 122 1316 
3 1224 131 
3; 1225 1314 
3 1¢¢6 1315 
: 1227 1316 
3; 1228 1317 


ibesep-19 4 


1:28:17 AX-11 Bliss-32 V4.0-742 Page 41 : 
14-Sep-1984 9:69:49 CLIUTL SRCISHOWLOG.B3251 . (10) \ 
1 ate ccm ga cheami ref table_block, args: ref vector): novalue = 
egin i 
macro 
: [a(n = (,tableCtable_b_flags] and %name('lnmth$m_',x)) neq 0 2%; 
oca 
cnt; 
} Save the current number of arguments 
cnt = .args(0); 
Append ascic strings for the various attributes 
: The following order was chosen, so that they form readable phrases. 
if f_('shareable’) then apparg_(ac_('shareable')); 
if f_('group' then apparg_(ac_('group')); 
if f_('system') then apparg_(ac_('s stem')); 
if f.('directory’) then apparg_(ac_('directory')); 
! Determine how many attributes we'll be showing (if any), and 
! append sufficient fao control strings for all of them. 
if (cnt = .args{0] - .cnt) neq 0 
then 
begi 
appstr_(" C!AC"); 
; decr i-from .cnt-1 to 1 do appstr_(",!AC"); 
appstr_(')"); 
2 end; 
1 end; 
PSECT $PLITS,NOWRT,NOEXE,2 
65 6C 62 61 65 72 61 68 73 09 OQOOES P.AAX: .ASCII <9>\shareable\ 3 
70 75 6F Le: 67 05 | P.AAY: .ASCII <5>\group : 
6D 65 74 73 79 73 06 OOOF8 P.AAZ: .ASCII <6>\system\ : 
79 72 6F 74 63 65 72 69 64 O09 OOOFF P.ABA: .ASCII <9>\directory\ 3 
43 41 21 5B 20 20 06 00109 P.ABB: .ASCII <6>\ CI!AC 3 
43 41 21 gC 04 00110 P.ABC: .ASCII <4>\,!AC\ : 
D 01 00115 P:ABD: ASCII <1>\J\ ; 
-PSECT SCODES,NOWRT,2 
007C 00000 DUMP_TABLE_ATTR: 
= WORD Save R2,R3,R4,R5,R6 > 1287, 
56 AF 9E 00002 MOVAB APPEND_ARG, RO ; 
55 0000" cF 9E& 00006 MOVAB P.AAX, Re : 
53 04 ac 7D 0B mMOVa TABLE, R : 1302 
3 64 +3 OF MOVL (R4), CNT > 1296 | 
0 15 As E 12 BLBC §=—_-«21(R'$),_18 : 1302 
3 88 0016 PUSHR #*M<R4,R5> : 
66 2 FB 0001 CALLS #2, APPEND_ARG : 


M 2 
16-3 Sep 
14-Sep 
on HH Baa 
4 dD 
j fe § 8 2$: 
10 AS SF 000 
83 PB O00 
8 1 00035 3$: 
17 AS 9F OOO3A 
54 pe Beer 
FIRS a. 
1A 13 0004 
21 AS 9F 0004 
03 11 00048 
28 AS 9F 0004D 5$: 
54 DD 00050 6$: 
DE FB 00052 
F4 F5 00056 
2D AS 9F 00059 
54 DD 0005C 
DE A6 02 FB OO0SE 
04 00062 7$: 


6c 65 6 qe $3 6 6 00117 P.AB 
eRe HB BES 
53 68 $3 95 0 i P.ABH: 
00000000* 00000000* 00000000' 00000000° 001 6 MODE _STR: 


3; Routine Size: 99 bytes, Routine Base: S$CODES + 065F 

BB OEY 

3 \¢3) 1330 ; Return an ascic string for an access/integrity mode 
; 1538 132¢ 1 routine ac_acmode(mode) = 

Be IRE gage 

: 1236 1325 mode_str: vectorL4] esses statis preset 
3: 1237 1326 § psl$c_kerne = kerne 

3; 1238 1327 psl$c_execJ= ac_('exec - 

> 1239 1328 s psl$c_superJ= ac_('super 5, 

3; 1240 1362 ps\$c_userJ= ac_(‘user')); 

: : ) 13 2 i. <node lssu 4 

3 1368 1336 $ : “er -mode_str(€.mode] 

3 se 

3 1568 133 : return ac_('?"); 

3 1246 1335 1 end; 


=19B¢ 12:69:37 


AX-11 Bliss-32 V4.0-742 
CLIUTL.SRCJSHOWLOG.B32; 1 


#2, 21(R3), 2$ 
P.AAY 
R4 


#2, APPEND_ARG 
dh (R4), "CNT 


P.ABB 
6$ 
P. ABC 
RG 
#2, _APPEND_STR 
1, 5$ 
P. ABD 
Ro 
#2, APPEND_STR 


SPLITS,NOWRT ,NOEXE 2 


<6>\kernel\ 
<4>\exec\ 
<5>\super\ 
<4>\user\ 


Be Se Fe Be Be Ge Ge Be Fe Ge Ge Fe Fe Ge Ge Ge Fe Fe Ge Ge Fe Fe Fe Me 


N 2 
16-Sep-1984 01:28:17 AX-11 Bliss-32 V4.0-742 Page 43 
137808- 1382 93:88:45 CLIUTL.SRCJSHOWLOG.B32;1 9 10), 
.ADDRESS P.ABE, P.ABF, P.ABG, P.ABH : 
3F 01 00140 P.ABI: ASCII <1>\2\ : 


«PSECT SCODES,NOWRT,2 


. Save nothin 3 1322) 
50 06 AC pO 90002 HOVE «= MODE, RO t 1330 
04 39 D1 9006 CHP RO, #4 : 
50 0000'CF40 Mi $008 MO MODE_STRCROJ, RO + 1334 
ge 0011 RET : 
50 0000" CF 9€ Bons 1%: MOVAB P.ABI, RO : 
04 0001 RET 3: 1335 
; Routine Size: 24 bytes, Routine Base: $CODE$ + 06C2 
3 1247 1336 61 
: : : ETA : Dump the access mode for a logical name table 
; \ ° 13 1 routine dump_table_mode(table: ref table_block, args: ref vector): novalue = 
:1 ¢ 1341 3 ! rf tablet table b acmode) eql psl$c_super then return; 
3 1 136g appstr_(*! C!Acy's; 
3 1254 1343 2 appary_ (acy _acmode(.tableCtable_b_acmode])); 
; 1255 1344 1 end; 
-PSECT SPLITS,NOWRT NOEXE,2 
5D 43 41 21 5B SF 21 O7 00142 P.ABJ: .ASCII <7>\!_C!ACI\ P 
-PSECT S$CODES,NOWRT,2 
0000 00000 DUMP_TABLE MODE: 
-WORD Save nothing : 1339 
0000' CF 9F 00002 PUSHAB ns gen 3: 1342 
08 AC DD 00006 PUSHL 3 
FFIS F 02 FB 00009 CALLS ae * APPEND. STR ; 
50 04 aC 00 Bots MOVL Lf R 3 1343, 
E 14 AO 9A 0001 MOVZBL 20(R §, =(SP) ; | 
CE AF 9} FB 00016 CALLS » AC “ac MODE 3 
0 DD OOOTA PUSHL nO ; 
08 AC ODD OOOIC PUSHL : | 
‘721 CF 02 FB OOO1F CALLS he * APPEND _ARG : 
04 00024 RET 3 1344, 


3; Routine Size: 37 bytes, Routine Base: S$CODE$ + O6DA 


: 1256 1345 1 


Pe 7} 


ww 


oon 


PDA ANGGSIYVIVIVIT EE & 


WN —OOSNAUE AN "OOOnNO 


WA 
See 
uw 


o 


NOUSWN—O0@n~ 


rorsrorurrorfor 


SLSRR ENS LaSU MISSES ORES 


Oe a a kd dd 
Mrerorerrertry 
NNO 


o 
le i ee ee ee ee ee ee ee i ee ee ee ee ee ee ee EY 


WANWANANWwiw 
SNS 


1984 01:28:17 AX-11 Bliss-32 V4.0-742 Pa 44 
ae 93:69:59 CLIUTL.SRCISHOWLOG.B3251 910) 
! Dump the attributes for a logicai name 


! 
ee ee ref log_block, args: ref vector): novalue = 
egin 


Local™ 
cnt; 


cnt = .argsl0); 
: if .logllog_acmode] neq psl$c_super 
: then 
begin 
soperg. (ac_acmode(. logtlog_b_ecacde))); 
nd; 


! The following are in alphabetical order, for lack of anything better. 


*no_alias')); 
*nodelete')); 
*table')); 


od ee ee ee 
be) Sn atenatinalin tena 


in 
appstr_(* C!AC"); 
decr i from .cnt-1 to 1 do appstr_(",!AC"); 
apaete,.<°2 25 
end; 


1 

1 

1 

macro 

f(x) = (.logllog_b_flags] and %name('lnmb$m_‘,x)) neq 0 %; 
2 

1 end; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


65 6e 69 66 6 6F 63 O7 0014A P.ABK: .ASCII <7>\confine\ : 

67 6F 6C 65 72 63 06 00152 P.ABL: .ASCII <6>\crelog\ : 

73 61 69 6C 61 SF 6F 6€ 08 00159 P.ABM: ASCII <8>\no_alias\ ; 
65 74 65 6C 65 64 6F 6E€ O08 00162 P.ABN: ASCII <8>\nodelete\ ; 
65 6C 62 61 74 OS 00168 P.ABO: ASCII <5>\table\ ; 

43 41 21 5B 20 O05 00171 P.ABP: ASCII <5>\ CIAC\ : 

43 41 21 2C 04 00177 P.ABQ: <ASCII <4>\, 'AC\ ; 

D 01 OO17C P.ABR: <ASCII <1>\f\ : 


.PSECT $CODES.NOWRT,2 
007C 00000 DUMP_LOG_ATTR: 


“WORD Save R2,R3,R4,R5,R6 > 1348 
5 0000" CF 9E 0000 MOVAB P. 6 : 
; FFI CF Of 900 MOVAB APPEND_ARG, RS : 
04 AC p 90¢ mova) iL: ; 1360, 
52 64 00 00010 MOVL (R4§, CNT > 1355 


<u | 


——— 


2 
1b-se -1984 01:28:17 AX-11 Bliss-32 V4.0-742 Page 45 
| JOe-008 ae 03:88:59 eet tute sre SHOWLOG.B32;1 ; 9° 10) 
7 09 A3 9A 0001 MOVZBL 9(R3), <(SP) : 1360 
00A3 ig 1 FB oot CALLS #1, AC_ACMODE : 
0 DD O00IC PUSHL RO : 
4 DD 901 PUSHL 4 : 
08 FB 000 ALLS #2, _APPEND_ARG : 
08 AS 9A 000 MOVZBL 8(R3), R3 + 1365 
07 : 1 £1 000 C , RS, : 
0050 8F 6B 000cB PUSHR #*R<R4-R6 : 
$3 02 FB 000eF CALLS #2. APPEND_ARG : 
08 5 0 a 0032 1$ BBC ; R3, + 1366 
08 A6é 9F 000 PUSHAB P.ABL : 
54 DD 00039 PUSHL R& : 
6 9¢ 4 4 00 CALLS aS APPEND_ARG $ 
08 E9 OOO3E 2$ BLBC —OsséRS,_- 38 + 1367 
OF Ab SF 00041 PUSHAB P. : 
54 DD 00044 PUSHL 4 : 
65 02 FB 00046 CALLS #2, APPEND_ARG : 
08 53 04 al 00049 3$: BBC #4, R3, 4$ : 1368 
18 A6 9F 0004D PUSHAB : 
54 Db 00050 PUSHL R& : 
65 02 FB 90052 CALLS #. APPEND_ARG ; 
08 53 03 £1 00055 4s: BBC #3. R3, 5$ + 1369 
21 ab SF 00059 PUSHAB P. : 
54 Dd 0005¢ PUSHL R& : 
+} 0 FB 0005€ CALLS #2, APPEND_ARG : 
52 64 52 C3 00061 53 SUBL3 CNT, (R4),~CNT : 1371 
1A 13 00065 BEQL 8S ; 
27 A6 9F 00067 PUSHAB P.ABP 3; 1374 
03 11 0006A BRB 7$ : 
2D Ab 9F O006C 6S: PUSHAB P.ABQ > 1375 
54 DD O006F 7S: PUSHL R& : 
DE AS 0 4 00071 CALLS #2, APPEND_STR s 
F4 52 5 00075 SOBGTR I, 6$ : 
32. AG OOF «00078 PUSHAB P.ABR : 1376 
54 DD 00078 PUSHL R& : 
DE AS 02 FB 0007D CALLS #2, APPEND_STR 3 
04 00081 8$: RET ; 


; Routine Size: 130 bytes, Routine Base: SCODES + O6FF 


1290 1379 1 
1393 1381 1! D lati ib 
' Dump translation attributes 
1398 1382 7! 
1294 1383 1 routine dump_(nmx_attr(inmx: ref Sbblock, args: ref vector): novalue = 
1295 1384 begin 
1¢96 1385 macro 
129 1386 f_(x) = .lnmxCEname("lnmx$v_*.x)] 2; 
1298 1387 local 
if 3.44 1388 cnt; 
1 1389 cnt = .args(0); 
1301 1390 5 . 
1308 : 4 The following are in alphabetical order, for lack of anything better. 
1304 1 38 if f_('concealed’) then apparg_(ac_(*concealed")); 
1305 1394 if f_-('terminal’) then apparg_(ac_(*terminal')); 


r— 


LLL LLL LL Lt ttt ttt 


—> —s 2 2 4 Le 


at a 
Wwn—O 


Routine Size: 


— st Dd 


SOODOS 
VIS SAVES 


08 


74 bytes, 


if (ent = .args[0] = .cnt) neq 0 
then 


begin 
appstr_(" CIAC"); 
cnt-1 to 1 do appstr_(',!AC"); 


decr i fr 
appstr_("J° 
end; 
end; 
6C 61 65 63 
61 6€ 69 6D 
43 41 
43 
55 
54 
53 
52 
05 
65 
06 «6«BC 
65 
63 
DE as 
F4 
DE AS 


Routine Base: 


); 


erno 


5 6F 63 09 
65 74 0 
1 58 20 8 
1 21 2C 06 
dD 01 

003C 

E98 CF OE 

0000" CF 9E 

08 ag dO 

63 00 

06 BC E9 

18 688 

02 FB 

01 €1 

OA AG OF 

53 DD 

02 Fe 

52 C¢ 

1A 13 

135 AG OOF 

03 11 

19 AS OF 

53 DD 

0 FB 

Se FS 

1E AG OF 

53 DD 

02 FB 

04 


SCODES + 0781 


d. 3 
1o-ge8=188e 93:88: 


-PSECT 
oots P.ABS: .ASCII 
00188 P.ABT: .ASCII 

191 P.ABU: .ASCII 
0197 P.ABV: .ASCII 
0019C P.ABW: .ASCII 

-PSECT 


90 

00008 MOVAB 
0000 MOVAB 
0000C MOVL 
Bois MOVL 
0001 BLBC 
00017 PUSHR 
00019 CALLS 
QO01C 18: C 
00021 PUSHAB 
00024 PUSHL 
00026 CALL 
00029 28 SUBL 
00020 BEQL 
0002F PUSHAB 
00032 BRB 
00034 3 PUSHAB 
00037 4$ PUSHL 
00039 CALLS 
888 SOBGTR 
0040 PUSHAB 
00043 PUSHL 
00045 CALLS 
00049 5$: RET 


1 
1 

5 : : Dump translation strings and their attributes 
1: 


17 AX-11 Bliss-32 V4.0-742 
37 CLIUTL.SRCJSHOWLOG.832;1 


SPLITS,NOWRT ,NOEXE,2 


<9>\concealed\ 
<8>\terminal\ 
<5>\ CIAC\ 
<4>\, 'AC\ 
<1>\J\ 


SCODES,NOWRT ,2 


D Save R2,R3,R4 


APPEND_ARG. R5 
P R4 


@aLNMX, 1$ 

#*M<RS,R4> 

#2, APPEND_ARG 
1 2$ 


R3 
#2, APPEND_ARG 
cnt, (R3),~CNT 


P. ABU 

4$ 

P -ABV 
#2,_APPEND_STR 
1, 3$ 


P ABW 
#2, APPEND_STR 


routine dump_log_inmx(log: ref log_block, args: ref vector): novalue = 


Page 


Pee Se See Oi ee Oe Se Ge Se Oe Oe Oe Oe Oe Be Oe Oe Oe Oe Oe 


46 
(10) 


—_——— EO Se rr - -_— —- —- ~—--—- -—- - —_—_——_—- —__—— — - 


3 
$ 1b-Se 1984 01:28:17 AX-11 Bliss-32 V4.0-742 P 47 
vou-b08 102 8ep-198e 93:69:39 CLIUTL.SRCJSHOWLOG.832;1 29°10) 


— 
oO 


first: initial(true), 
inmx: ref $bblock; 


ac 


callg; 
Lnmx = Pogl tog t_name] + 1¢logllog_t_name]; 
mile net - Lnmxl Liimx$v_xend) do 
n 


: Don't dump logical names that have ‘funny’ indices. 
it .LnmxC inmx$b_index] geq 0 or .lnmxCinmx$b_index] eql Lnmx$c_table 
en 


begin 
local len.adr; 
if .first 
then appstr_(' = IAF’) 
else eppetr fet “are? )s 
Len = .inmxClnmx$t_xlation]; 
adr = 14+inmxCinmx$t_xlationI; 
Ad -lnmxClnmx$b_index] eql inmx$c_table 
en 


Ww 
SRIF WN —O OCONOUSWN Oo 


| ak ak ek ee ee ee ee ee ee ee ee ee et at et at at ot nt oe 


SS esas s38 
=O ODNOV FEW (OC ONO Fw" 


PROPRIA & ENN BBE ENN BB EEE EE PEE EEE EE EEE EP WIWIIIonononononononony 


len = 0; 
4 -len gequ « then if .(.adr)<0,16,0> eql %x*O01b’ 
en 


WA 


(len = .len = 4; adr = .adr + 4); 
apparg_(.len); 
eppars.<.adr); 
if .flags(flag_v_full] 
en 
dump_(inmx_attr(inmx(base_], args(0J); 
is -first and” .flags(flag_v_recurse] 


SELES E SS 


DONO VNE WN “OO O@NOUS WhO 


table = .logllog_l_table]: table_block; 
appstr_(* (!AC)"); 
apparg_(table(table_t_name)); 


WAWAAAAA 
PADMA 


end; 
callg(args(0J], util_output); 
Reinitialize the argument List 


begin 

bind gesc = .args(1): vector(2); 
args( 0 0) 

appar esc 3 
desclOl = 0; 

end; 


SEFEREES 


- 


PAVIA II BB BEE EEE 


SSF 


~~~ 
ARAN—=SS 


first = false; ! No longer the first time here 
end; 
inmx = .lnmxCinmx$t_xlation] + 1+inmxCinmx$t_xlation); 


ee ee ee ee ed ed od ed 
a a em ee ee el el a el ee el ae eel eel el eel eel ll el el el el el 


Fk al tal el ek ek ek ek ek ek ek ed kk teh el a tel eh a eh eh eh ee eh ek ke ek 


WAWw 


end; 
if not .first then flags(flag_v_found] = true; 


—_——_ -—- -- ----r 


S$ 
/ V06 
; 1376 


| 
| 
| 


1465 


1 


22 
22 46 


03 


07 


-. 
16-Sep-1984 01:28:17 AX=11 Bliss-32 V4.0-742 
14-Sep-19 4 93:68:5 -S ¢ )SHOWLOG.832;1 


end; 


.PSECT 
46 41 21 22 20 3D 20 08 OIE P.aBY: ASCII 
“1 3) 2 D 5F 21 09 OOIA? P.ABY: “ASCII 
9 43 41 21 28 20 06 00181 P.ABZ: -ASCII 
.PSECT 
QOFC 00000 DUNP_LOG_LNMX: 
57 FEME CF 9E 0000 HOVAB 
56 01 D0 0000 MOVL 
51 04 AC DO OOOOA MOVL 
50 Al 9A OOOOE MOVZBL 
52 08 A140 9 00012 OV 
é 02 1 00017 18 C 
0OA6 31 0001B BRW 
54 01 A2 98 OOO1E 2s: CVTBL 
09 18 0002 BGEQ 
82 BF 54 91 00024 CMPB 
03 13 00028 BEQL 
0088 31 0002A BRW 
55 08 AC D0 0002D 3$:  —-MOVL 
56 £9 00051 BLBC 
0000" CF 9F 00034 PUSHAB 
04 11 00038 BRB 
0000" CF 9F OO0SA 4s PUSHAB 
55 DD OO03E 5$ PUSHL 
DE A 02 FB 00040 CALLS 
50 04 A2 9A 00044 MOVZBL 
53 05 A2 9E 00048 MOV 
82 BF 54 91 0004C CMPB 
02 12 00050 BNEQ 
50 D4 00052 CLRL 
04 50 D1 00054 68: CMPL 
08 1 00057 BLSSU 
1B 63 B1 00059 CMP 
06 12 0005¢ BNEQ 
50 04 C2 0005E SUBL 
53 04 CO 00061 ADDL 
50 DD 00064 7$ PUSHL 
55 DD 00066 PUSHL 
67 02 FB 00068 CALLS 
53 DD 00068 PUSHL 
55 pd 0006D PUSHL 
67 02 FB O006F CALLS 
0000" CF 06 £1 00072 ¢ 
4 8B 0007 PUSHR 
0162 C7 2 £8 OO07A CALLS 
iE 6 £9 OO07F 8s BLBC 
0000" CF 95 00082 TSTS 


? CLIUTL 


SPLITS,NOWRT ,NOEXE ,2 
<B>\ = “IAF''\ 


rts 


< : 
<6>\ TIAC)\ 


SCODES ,NOWRT ,2 


Save R2,R3,R4 
ND G 


R5,R6,R7 
APPEND ARG, R? 
RST 


RO 
1)€R03, LNMX 
NMX). 2$ 


#2, APPEND_STR 
4(LNMX), LEN 


5(R2), ADR 
RS 26 


(ADR), #27 
7$ 


#4, LEN 
#4, ADR 
LEN 


#2, APPEND_ARG 

ADR 

R5 

#2, APPEND_ARG 

#6 Zz F AG e 8$ 
#°R<R2,R5> 

#2, DUMP_LNMX_ATTR 
FIRST, 98 

FLAGS 


eRe Se Oe Oe Se Se Se Se Se Se Ge See Se Se Se Ge Be Be Se Be Be Se Se Ge Be Be Se Se Se Se Be Se Be Se Se Se Be Se Be Se 


——— 
vo4=000 


18 8 0 
53. Of AC 4 0 
0000° gf F 000 
5 0D 000 
DE A7 02 FB 0009 
7E 06 AS 1 C1 000 
3 DD 00098 
67 ¢ FB 00090 
F9E1 C7 65 FA OOOA0 
29 08 af DO OO0AS 
04 AQ DO O00A9 
$9 D4 QOOAD 
9 BB OOOAF 
67 0 FB sed 
g D4 00084 
D4 00086 
50 04 A2 9A 00088 
52 05 A240 9E Bae. 
FF53 31 000C1 
05 56 ce 000C4 
0000° CF 01 88 000C7 
04 OO0CC 
; Routine Size: 205 bytes, Routine Base: SCODE$ + 07CB 
; 1377 1466 1 
3; 1378 1467 1 ! Dump a logical name and its attributes, 
: 1379 1468 1! 
3; 1380 1469 1 routine dump_log( 
; 1381 1470 1 log: ref log_block, 
3 1aa6 1471 1 depth 
3 138 1478 1 ): novalue = 
3 1384 147 3 begin 
3; 1385 1474 Local 
3; 1386 1475 2 buf: vector(80,bytel], 
: 1387 1476 desc: yecterba? 
3; 1388 1477 args: vector 20); 
; 1389 1478 macro 
: 1390 1479 f_(x) = 
3; 1391 1480 § builtin 
3 1396 1481 actualcount, 
3; 139 1086 testbitsc, 
3 iB 148 fatty: 
: 1395 1484 args = 0; 
31 98 1485 apparg (desc(0)); 
3; 139 1486 esc = Q; 
: 1398 1487 desc(1) = buf(0); 
3; 1399 1488 if actualcount() gequ 2 
3; 1400 1489 then 
3; 1401 1490 begin 
: 1406 1491 apparg_(.depth); 
3; 140 1636 if .depth gtr 0 
3 1406 149 then appstr_(‘!uL ““!AC***) 
3: 1405 1494 else appstr_("!+ “"!aC*'); 
: 1e08 1495 end 
3; 140 1496 2 else 


(.Logllog_b_flags] and Zname('lnmb$m_',x)) neq 0 2; 


- 
3 
-$ep-1984 01:28: AX-11 Bliss-32 v4.0-742 Page 49 S 
=300=} 382 93:88:45 CLIUTL.SRCJSHOWLOG.832;1 9° 10) v 
SSEQ 38 : 3 
MOVL LOG, R3 + 1445 : 
PUSHAB P,ABZ + 1446 : 
PUSHL 5 : ; 
CALLS #2, APPEND_STR : ; 
ADDL3 #22, 4(R3)> -(SP) + 1467 ; 
PUSHL R : 3 
CALLS #2, APPEND_ARG : ; 

9$: CALLG § (R5), UTILZOUTPUT + 1449 ; 
MOVL ARGS. RO + 1454. ; 
MOVL 4(ROS, R3 : | : 
CLRL RO) + 1455. 
PUSHR  #*M<RO,R3> + 1456 
CALLS #2, APPEND_ARG : | 
CLAL (RS) + 1457) 
CLRL = FIRST : 1460 

10$: MOVZBL 4(LNMX), RO + 1462 | 
MOVAB. 5(LNMX)CROJ, LNMX : | 
BRW 1$ + 1416) 

11$:  BLBS FIRST, 12 + 1464 | 
BISB2 #1, FLAGS+1 : | 

12$: ET $ 


_ 
=> 
o 
w 


and translations and their attributes 


™ 


ak a ak a a at es wa ss = = a a ss a =) 
fat at at at et pt et at bt pt bt pt et nt bt bt et et et et et et et et et et et 
Reese sae stn dtneunae 

w 
ee ed ee ed ad ed 
alee leat wales) walealealval alee leslie lesleale.le. ele. le. we. we oe oe 
ViFWN 0 OONOUFS WN —OC@m Ml wr— S23 


= NIN AWHIAI AAI. WWI III AIO IWIIInononon 


rr 
rr 
oe 
AWG 
w ee 
oc —_— 


H 
16-Sep-1984 01:28:17 AX-11 Bliss-32 V4.0-742 
103-1 $be 93:68:59 tetiute sre SHOWLOG.832;1 


eppstr ti ts” 3 
apparg_ og_t_name]); 
if flagstflagey Tull 
then 
begin 
; Dump all of the attributes 
dump_log_attr(log{base_], args(0]); 
else if f_('table') 
then 
begin 
; Let the user know that this is a table 
appstr_(" Ctable]"); 
en 
else if .logllog_v_equal) 
then 
begin 
Display the access mode, so the logicals are distinguishable 


apparg_(ac_acmode(.logllog_b_acmode])); 
sppste (* T!acd"); neths 


end; 
dump. Log. inax(Loglbase_J, args(0)); 
end; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


21 32 20 0 4C 55 21 OA 00188 P.ACA: .ASCII <10>\!uL “"IACT\ 
21 é 0 20 20 2B 21 OA O001C3 P.ACB: <ASCII <10>\ie ‘iach’ 
22 43 41 21 22 20 20 07 OOICE P.ACC: ASCII <7>\ “"tAC’ 
65 6C 62 61 94 §B 30 08 00106 P.ACD: <ASCII <8>\ Ctable)\ 
5D 43 41 21 5B 20 06 OOI1DF P.ACE: ASCII <6>\ E'ACI\ 
.PSECT SCODES$,NOWRT,2 
001C 00000 DUMP_LOG: 
-WORD Save R2,R3,R4 
54 0000" CF 9€ 0000 MOVAB P.ACA, R 
53 FD7C «CF «9E 0000 MOVAB APPEND ARG, R3 
5é FFSC CE 9€ 0000C MOVAB <-164(SP), § 
E p4 11 CLRL  —s ARGS 
50 AE OF 9 13 PUSHAB DESC 
04 AE 9F 00016 PUSHAB ARGS 
63 02 FB 00019 CALLS #2, APPEND_ARG 
50 AE p4 9 iC CLAL 
54 OA AE f 1F MOVAB BUF DESC +4 
0 6C 91 00 34 CMPB (APS, # 
17 1f 00027 BLSSU 


—_—_— , — 


3 
S$ rbese -1984 01:28:17 AX-11 Bliss-32 v4.0-742 Page 51 1s 
_voe=00 1e-8ep-19 4 93:80:59 CLIUTL.SRCJSHOWLOG.832;1 9° 10) iV 
8 ac po 0 9 PUSHL DEPTH : 1491 
4 AE F ¢ PUSHAB ARGS : 
63 02 F 0 F CALLS #2, APPEND_ARG : 
08 AC OD TSTL DEPTH + 1492 
| 9 1 0 BLEQ 1 ; 
4 oD PUSHL R4 t 1493 
08 11 00039 BRB 3$ : 
0B AG OF 00038 1$: PUSHAB P.ACB + 149% 
03 11 000 BRB 3$ ; 
16 Aa OF 04 $: PUSHAB P.ACC + 1497 
04 AE 99F 00043 3$: PUSHAB ARGS : 
DE a3 0 FB 0046 CALLS #2, APPEND_STR : 
5 04 AC p 4A MOVL 6 + 1498 
OA A2 9F 0004E PUSHAB 10(R2) : 
04 AE 9F 00051 PUSHAB ARGS ; 
63 02 FB 00054 CALLS #2, APPEND_ARG : 
0B 0000" CF 6 €1 00057 BBC #6, FLAGS 4$ t 1499 
4006 8F 8B 0005D PUSHR #*M<R2,SP> + 1505. 
00EO0 C3 2 FB 90061 CALLS #2, DUMP_LOG_ATTR : 
A 11 00066 BRB + 1499. 
05 08 A2 03 3 00068 4$: BBC #3, 8(R2), 5$ : 1507 
1E A& SF 0006D PUSHAB P.ACD > 1513 
19 11 00070 BRB 6$ ; 
08 A2 95 00072 5$: TSTB = B(R2) + 1515 
1B 18 0007 BGEQ : | 
7 09 A2 9A 90077 MOVZBL 9(R2), -(SP) > 1521 
00OA3. CC 1 FB 0007B CALLS #1, AC_ACMODE ; 
0 DD 000 PUSHL RO ; 
04 AE 9F 0008 PUSHAB ARGS : 
63 02 FB 0008 CALLS #2, APPEND_ARG ; 
27 as OF 00088 PUSHAB P.ACE : 1522. 
04 AE 9F 00088 6$ PUSHAB ARGS : 
DE Ad 02 FB OO08E CALLS #2, APPEND_STR ; 
4004 8F 8B 00092 7$ PUSHR #*M<R2, + 1524 
O1AC C3 02 FB 90096 CALLS #2, DUMP_LOG_LNMX ; 
04 00098 RET : 1525. 


; Routine Size: 156 bytes, Routine Base: S$CODES + 0898 


3 1437 15 1 

3 “3 1337 : : Dump a logical name table and its attributes, and the contained logical names 
3 1440 1398 1 routine dune tablet 

3 1441 1530 1 table: ref table_block, 

: py | 1531 1 depth 

3 144 15 § 1 ): novalue = 

: 1464 15 begin 

3 1465 1534 local 

: 1666 1535 buf: vector([80,bytel], 

3 1446 15 desc: vector 

3 14648 15 args: vector 4; 

3 1449 1538 builtin 

3; 1450 1539 callg; 

; 1451 1540 

3 1636 1541 ! Note that we write the name of the table before checking whether there 
3; 145 1542 ' are actually any logical names to be displayed in that table. 


| 
| 
| 


| 2 
Ss 16-Sep-1984 01:28:17 AX-11 Bliss-32 V4.0-742 Page 52 
rived itd 1228671382 93:69:45 CLIUTL.SRCJSHOWLOG.832;1 ¥ (185 
3; 14546 1543 : The idea for this is that it provides useful feedback about which tables 
; 1455 1544 ! were searched. 
3 i‘? $ ; re ! This can be changed by including: 
; 1328 : 43 Viilif -flags(flag_v_normal] and .table(table_l_log] eql 0 then return; 
; 1460 49 ! Display the table name and attributes 
; 146¢ 1551 if -fiagsCtlag_v normal] then write_blank_line(); 
3; 146 1326 args(0) = 0; 
3 1464 155 apparg (desc(0J); 
: 1465 1228 desc = 0; 
: 1466 1555 desc(1j = buf(0); 
3 1467 1338 if not .flags(flag_v_normal] then appstr_('!#* '); 
: 1468 155 appstr_('C!AC)* ); 
3 1469 1558 if not c{tegst flag.v normal] then apparg_(4*min(.depth,10)); 
; 1070 1322 apparg_(table(table_f_name]); 
; 147¢ 1561 ! Dump attributes, if needed 
3 147 1366 : 
3: 1474 156 if .flags(flag_v_full) 
3 1475 1564 then 
> 1476 1565 begin 
3 1477 1298 dump_table_mode(table[base_], args({0]); 
3; 1478 156 dump_table_attr(table(base_J, args(0J); 
3 1479 1568 dump_table_quot(table[base_J, args{0J); 
: 1480 1569 end; 
3 pe + 1309 callg(args(0), util_output); 
: 1283 157 ! If there are logical names in this table, display them. 
3 1484 157 ‘ 
3; 1485 1574 if .tableCtable_l_log] neq 0 
3: 1486 1575 then 
3; 1487 1576 begin 
3; 1488 1577 local 
3 1489 1578 3 Log: ref log_block; 
3 1490 1579 write _blank_line(); 
3: 1491 1580 sort_Tist( Fable(table_|_to ], Sfieldexpand_(log_l_next,0), cmp_log ); 
: 1498 1581 log = tablettable t Log) - fieldexpand_(Log_t_néxE.0); 
3 149 1386 ; while (log = Loge Log. next]) neq 0 do 
7 1494 158 dump_log(loglbase_JJ; 
3; 1495 1584 2 nd; 
3 1496 1585 1 end; 
-PSECT SPLITS,NOWRT,NOEXE,2 
20 2A $3 21 04 QOTE6 P.ACF: .ASCII <4>\!ae \ 3 
29 43 41 1 28 OS OQO1TEB P.ACG: .ASCII <S>\CIAC)\ 3 
-PSECT S$CODES,NOWRT,2 
001C 00000 DUMP_TABLE: 
“WORD Save R2,R3,R4 : 1529 


cow | 


<o” 


ce 


ie 
SHOW 16-Sep-1984 01:28: AX-11 Bliss-32 V4.0-742 
v04 1o-808=138e 93:88:35 CLIUTL.SRCISHOWLOG.B32:1 
4 0000" CF 9E MOVAB FLAGS, R4 
33 F6C1 CF OE 009 MOVAB ui 6uTPUT, R3 
E FF58 cE 9 f MOVAB -168TSP), SP 
07 64 4 f 01 BBC #4, FLAGS, 1$ 
0000' cf F 013 PUSHAB BLANK LINE 
63 1 FB 0001 CALLS #1, UTIL_OUTPUT 
6E b4 gic 1$: CLRL ARGS 
50 AE OOF 3 PUSHAB DESC 
04 AE 9F 000 PUSHAB ARGS 
O61F C3 02 FB 00024 CALLS #2, APPEND_ARG 
50 AE ps 0029 CLAL 
54 AE 58 OA : 00 ¢ MOVAB BUF, DESC+4 
0c 64 04 f 1 BBS #4, FLAGS, 2$ 
0000" CF SF 00035 PUSHAB P.ACF 
04 AE 9F 00039 PUSHAB ARGS 
OSFD C3 02 FB 0003C CALLS #2, APPEND_STR 
0000" CF 9F 00041 2$ PUSHAB P.ACG 
04 AE 9F 00045 PUSHAB ARGS 
OSFD = C3 02 FB panes CALLS #2, APPEND_STR 
18 64 04 £0 00040 BBS #4. FLAGS, 4$ 
50 08 AC 00 00051 MOVL DEPTH, RO 
0A 50 D1 00055 CMPL RO, #10 
03 15 00058 BLEG 
50 OA 00 0005A MOVL #10, RO 
7E 50 02 78 0005D 3$: ASHL #2, RO, -(SP) 
04 AE 9F 00061 PUSHAB A 
O61F C3 02 FB 00064 CALLS #2, APPEND_ARG 
7E 04 AC 16 C1 00069 4$: ADDL3 #22, TABLE? -(SP) 
04 AE 9F O006E PUSHAB ARGS 
O61F C3 02 FB 00071 CALLS #2, APPEND_ARG 
1€ 64 06 £1 00076 BoC #6. FLAGS, 5$ 
SE DD O007A PUSHL SP 
04 AC DD 0007C PUSHL TABLE 
06DA C3 02 FB OO007F CALLS #2, DUMP_TABLE_MODE 
5E 0D 00084 PUSHL SP 
04 AC DD 00086 PUSHL TABLE 
065F C3 02 FB 00089 CALLS #2, DUMP_TABLE_ATTR 
5E DD 9008 PUSHL SP 
04 AC DD 000 PUSHL TABLE 
062F C3 02 FB 90095 CALLS #2, DUMP_TABLE_QUOT 
63 6E FA 00098 5$: CALLG ARGS, UTIL_OUTPUT 
50 04 AC 00 00098 MOVL ‘TABLE 
52 10 AO 9E 0009F MOVAB 16(ROS, R2 
$2 : OA3 TSTL (R2) 
A BEQL «6s 7$ 
0000" CF 9F OO0A7 PUSHAB BLANK_LINE 
63 01 FB OOOAB CALLS #1, UTIL_OUTPUT 
03€7 cs OF OOAE PUSHAB CMP_LOG 
D4 0008 CLRL = = (SP) 
52 DD PUSHL Re 
00csS = ¢3 03 FB 000B6 CALLS #3, SORT_LIST 
52 6 p OBB 6$: nov (L066), LOG 
93 ")) o9¢ PUSHL LOG 
0898 ¢3 01 re OC CALLS #1, DUMP_LOG 
F2 11 000¢ BRB 6$ 
04 000€9 7$: RET 
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; Routine Size: 202 bytes, Routine Base: SCODE$ + 0934 


2 


GEESss So 


a 3 
16-Se 742 Page 55 
14-Se CLIUTL.SRCJSHOWLOG.832;1 (11) 
les s 
ls ad 


<u" 


ind all the relevant logical name tab 


¢ s 
This routine uses cmdtbl_list, and cal 


- 9 03:68:47 AX-11 Bliss-32 V4.0- 
ned by the user. 


1 
5-19 
pecif 

add_to_known to create table_blocks. 


routine get_relevant_tables = 
begin 


list: ref cmdtbl_block; 
runs_in_kernel_(get_relevant_tables); 


SESaor 


SOWONAUES WN" ODOONOULS WN —OOOn 


!' Traverse the List, and process each name as either: 
A wildcard string (find all table names that match) 


A table name (process that table) 
A search List (process all relevant tables) 


t = cmdtbl_list - %fieldexpand_(cmdtbl_l_next,0); 
le (list =", ListCcmdtbi_l_next]) neq 0°do 
egin 
bind name = List(cmdtbl_q_name]: Sbblock(dsc$c_d_blnJ; : 
if not ch$fail(ch$find_cht.nameldsc$w_length], nameCdsc$a_pointer],'* 
or not ch$fail(ch$find_ch(.nameldsc$w_length],.namel[dsc$a_pointer],'% 
en 
begin 


A wildcard string (find all table names that match) | 


fo steal eal * al * al * al Ya) eal eal al eal eal al al alta eal eal eal eal 
COOOCCOCOCOOOOOOOOOOOWwo 
MEW (OOS NOAO UE Wt O OOO 


PUPTLULPVSUSVIVSUSUSVSIUSVSVSTSVSISISISIS LE = 


WWW PMIPOPOPONONIPONNY 2 2 OO 


1 
1 
1 
3 
3 
3 
4 
4 
d 
4 foreach _Lnmth( match Lnmth, ListCbase_J ); 
4 sort_list( ListCcmdtbl_l_table], %fieldexpand_(table_l_next,0), 
: cmp_table ); 
3 
6 
4 
4 
& 
4 
4 
& 
% 
4 
4 
4 
4 
4 
4 
& 
4 
4 
4 
& 
4 
4 
4 
os 
4 
4 
5 
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ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee ee ee eee 2 
ANS WN —OOONAULSWN—O0O@~ 
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; 6 

H 60 

: 60 

; 60 

H 61 

; 61 

3 61 

; 61 

; 61 

; 61 end 
; 61 else 
3 § ot begin 

3 1 61 ' A table name (process that table) 
; g 6¢ A search List (process all relevant tables) 
s $e os : In either case, we simply use Lnm$setup and Lnm$table. 

3; 1536 62 ! 22? Note that there is a slight problem with the access mode. 

3; 1537 62 ! If we set it to .acmode, then SHOW LOGICAL /EXEC causes no tables 

3; 1538 62 ! to be found, since LNMSDCL_LOGICAL is a supervisor mode name. 

3; 1539 627 ! Instead, we set it to psl$c_user, and let add_to_known check the 

; a9 oc8 , access mode of the resulting table. 

3 246 $86 local 

; 154 os! an_rt_block: rt_block, 

3 1544 6 g Lnmth? ref $bblock, 

3 1545 63 status; 

3; 1546 634 register 

3 1547 635 rt = 5: ref rt_block initial(an_rt_blockCbase_J); | 

3; 1548 636 rtC(rt_b_acmode) = psl$c_user; ' Acceptable Tntegrity mode 

3 1549 637 rt re_b_flags = 0; ! Initialize flags 

; 1550 638 rt(rt_v_case] = true; ' Case-insensitive 

3 1551 639 status = |nm$setup(.name[dsc$w_length], .name(dsc$a_pointer), 

3 226 640 _ rtCbase_J; Lnmth); 

; 155 641 while true do 

3 1554 64? begin 


ian Mn Oe Be Oe Oe Be Be Be Be Ge Ge Be BeBe Ge Fe Ge Se Se Se Se Se Se Se Ge Se Se Se Se ee Se Se Se Fe Se Se Se Se Se Ge Se Se Se Se Se se Se se Se See Se Se Se tease 
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S 
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; 1555 1643 H if not .status : 
3 7 : 1644 then ; 
3 3 1645 6 begin ; 
> 1558 1048 6 if .status eql ss$_toomanylnam : 
; 1559 1647 6 then : 
$ 1209 Hb oh ? rtC(rt_b_depth] = .rtC{rt_b depth] - 1 ! Backup depth : 
3 1362 1650 6 exitloop ! Presumably no more names 3 
; 156 1651 g end : 
> 1564 1626 else : 
3; 1565 1653 6 begin 3 
; 1268 1654 6 local table: ref table_block; | ; 
; 156 1655 6 if (table = add_to_known(LnmthCbase_J)) neq 0 : 
3; 1568 1656 6 then : 
3; 1569 1657 6 util slide(table[table_l_next], : 
: 1570 1658 3 TistCemdtbl_l_tablé]> tableCbase_J); | $ 
: 1571 1659 end; : 
; 1226 1660 5 rtC(rt_b_tries] = rt_c_maxtries; ! Reinitialize number of tries : 
; 157 1661 5 status = LnmStable(FtCbase_J; (nmth); | ; 
3 1574 1966 4 end; : 
; 1575 16635 4 reverse _List(lListCcmdtbl_l_table], %fieldexpand_(table_l_next,0)); : 
; 1576 1664 3 end; 3 
3 1577 1665 § end; : 
; 1578 1666 : 
3; 1579 1667 : Reverse the order of known_list, so that traversing the List will ; 
s 1380 1968 } visit the tables in the same order as they were found. : 

3 1286 1070 2 reverse_List(known_list, %fieldexpand_(known_l_next,0)); : 
; 1388 1676 : | Now get the descendants, if requested. : 
3; 1586 1674 3 ! Note that this is done after finding all the tables specified on the : 
; 1587 1675 : command line. Thus, the user's requested order is honored as much as | : 
; 1388 1676 2 ; possible. It also avoids anomolous behaviour for ''/table=*/descendants”’. : 
; 1590 1678 5 : 27? However, it gives odd behaviour for the command : | : 
3 1591 1679 § i "7table=Lnm$e directory/descendants/process/group/job/system' é 
3 1236 1680 i as compared with saying ‘/table=*dire*/descendants”. | 3 
3; 1594 1o86 if .flags(flag_v_descend) é 
3 1595 168 then : 
: 1596 1684 begin : 
3: 1597 1685 : 3 
3; 1598 1086 ! We traverse the known List in the order in which things were found 3 
3; 1599 1 ; : 
3; 1600 1688 local 3 
3 1601 1689 known: ref known_block; : 
3 1608 1690 known = known_list - %fieTdexpand_(known_l_next,0); : 
3: 160 1691 while (known = .knownEknown_l_next]) neq 0"do : 
3: 1604 1036 4 begin : 
3: 1605 1695 4 local : 
2 1606 1694 4 new: ref known_block; : 
3; 1607 1695 4 get_descend(.known[known_|_table], .knownCknown l_tnmth)); 3 
: 1608 1698 4 New= known list = %fieldexpand_(known_l_next,07; 3 
3 1609 1697 4 while newt inoyn. | next neg known(basé_7J do 3 
3; 1610 1698 4 new = .newlknown_|_nextdJ; : 
3 1611 16 4 if known_List base_] néq known(base_] ! Any new tables? 3 

| 

| 


wn 
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4 
1b-se =1984 01:28:17 AX=-11 Bliss-32 V4.0-742 P 7 
Jensep-19be 12:69:57 Lecture SneSsnowo6 84841 aadthie 
be in 
knoun list = us tts ide(neuCknoun. | next, knownCknown_|_nextJ, 
kfiown_list(base_]); 


known = néw(base_j; 
end; 


end; 
end; 
inm$unlock(.ctl$gl_pcb); 
set_ipi(0); 
return ss$_normal; 
end; 
O7FC 00000 GET_RELEVANT TABLES: 
-WORB Save R2,R3,R4,R5,R6,R7,RB,R9,R10 3 1589. 
5A 000000006 00 9 90902 MOVAB CTLS$GL_PCB. RID : 
9 0008" CF 9E 000 MOVAB KNOWN_CIST, R9 : 
58 F650 F 4 30008 v UTIL. SLIDE. RB 3 
SE 0 C2 0001 UBL #48, SP : 
9 nya 90016 MOVPSL PSL > 159% 
50 02 1 F 0018 MPZ7V #24, #2, PSL, #0 3 
96 001D EQ 1$ : 
FC AD D pO O00TF MOVL FP, SAVED_FP : 
11. 11 000 ; BRB 2s 3 
o90e @h $F 00097 © «PUSH GET_RELEVANT TABLES Pond 
000000006 00 02 FB 000 CALLS #2, SYSSCMKRAL : 
FC OAD OG 99 CLL SAVED_FP : 
54 6A 00 00036 2$: MOVL CTLS$GL_PCB, R4 : 
000000006 00 16 00039 JSB8 UNMS 3 
54 04 Ad GE 0003F MOVAB CMDTBL_LIST, LIST 3 1601. 
54 64 DO 00043 3$ MOVL (LIST)? LIST : 1602 
03 0046 BNEQ 4$ : | 
0094 004 BR 14$ : 
2$ 08 A 0048 4$: MOVAB &(LIST), R6 : 1604 
04 Ad 9E 0004F MOVAB 4(R4), R7 : 1613. 
046 86 be A 3A 99 ; LOCC #42, (R6), @4(R6) : 1605 
é 2 BNEQ 5$ : 
D4 0005A CLRL R1 : 
1 dS 005C 5$ TSTL R1 3 
9 00 BNEQ 7$ : 
04 B86 66 i LOCC #37, (R6), a4(R6) > 1606. 
2 12 9 BNEQ 6$ 3 
1 04 CLAL R1 ; 
1 rH 9 6$ TSTL R1 : 
19 1 BEQL 9$ ; 
54 bb 7$ PUSHL LIST : 1612 
0326 f F F PUSHAB MATCH_LNMTH : 
O4FB «CB FB 3 CALLS #2, FOR_EACH_LNMTH ; 
0367 CB 9F 0007 PUSHAB CMP_TABCE > 1613 


<9 


— 


18-Sep-1984 93:98:42 AX-11 Bliss-32 Wty 


16-Sep-1 CLIUTL.SRCISHOWLOG 1 
7 D4 0007¢ CLRL = (SP) 
; DD PUSH R 
65 AB 3 re CALL » SORT_LIST 
8 1 gs: BRB $3" 
5 : $: MOVAB AN_RT_BLOCK, RT 
6 H MOVW hits (RT) 
01 A 1 BI1SB2o#l TERT) 
3 06 Ab mov 4(R6), R3 
C 00094 MOVZWL (R6), R2 
000000006 97 JSB LNMSSETUP 
2 9D 108: MOVL RO. STATUS 
a. 1D Ap MOVL RI, R6 
E é 7 A BLBS STATUS, 
00000374 8F D1 COOA6 CMPL STATUS, 1886 
if OOAD BNEQ 138 
02 AS 97 OOOAF DECB (RT) 
15 11 00082 BRB 2$ 
56 DD 000B4 11$: | PUSHL  LNMTH 
0284 8 gi FB 00086 CALLS #1, ADD_TO_KNOWN 
6 dS 00088 TSTL «TABLE 
0a 13 0008D BEQL 128 
50 pb 0008 PUSHL TABLE 
06 Ad 9F 000C1 PUSHAB 4(List) 
30 DD 000C4 PUSHL TABLE 
68 FB O00C CALLS 43, Sats SLIDE 
03 AS i BE 000C9 12$:  MNEGB 
000000006 00 16 90¢D JSB on STABLE 
c8 11 000D BRB 10$ 
E D4 00005 138: CLARE ~(SP) 
57 0D 00007 PUSHL R 
46 AB 02 FB 00009 CALLS #2, REVERSE_LIST 
AS 11 000DD BRB 
ze D4 OOODF 148: CLRL = = ( SP) 
; DD OO0E| PUSHL R 
46 AB é FB OOOE CALLS a2. REVERSE bist 
OC a9 05 €1 OO0E BBC #5. FLAGS, 18$ 
52 59 OOEC MOVAB KNOWN LIST, KNOWN 
Se 62 DO OOOEF 15$: MOVL (KNOWN), KNOWN 
2— 13 000F2 EQL 4=s«é18$ 
06 Ae oD bO0F4 PUSHL 
08 A2 DD 000F7 PUSHL  8(K 
048F ce 02 FB OOOFA CALLS 2, Neer DESCEND 
5 69 9E OOOFF MOVAB KNOWN_LTST, NEW 
52 ; p ot é 16$: CMPL (NEW W) > KNOWN 
1 BEQL =sés«s17$ 
53 63 D 01 7 MOVL (NEW), NEW 
F6 11 OO10A BRB 16 
52 69 D1 910¢ 17$:  CMPL  -KNOWN_LIST, KNOWN 
DE 13 0010F BEQL —«'15$ 
DD 00111 PUSHL KNOWN LIST 
DD 0011 PUSHL 
DD 0011 PUSHL ie 
Ae FB 1 CALLS @ UTIL SLIDE 
9 DO OO11A MOVL RO LIST 
2 dO 3138 MOVL NEW. KKNOURS 
td 11 O12 BRB 
54 6A DO 00122 188: MOVL CTLSGL_PCB, R4 


<u | 
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| 14-Sep- CLIUTL. SRCJSHOWLOG.832;1 
#] 1 JSB OCK 
ig et oO MTPR 50, #1 
5 $0 83 MOVL #i, RO 
001 RET 


; Routine Size: 306 bytes, Routine Base: SCODES + O9FE 
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4 
1Eoseortgte 1:28:17 yanatt BLiegc32v4.0-762, 


e 


| 
14-Sep-19 
F 1627 1fié 1 routine translate( 
3 7 1715 «1 name_len, 
131 1718 1 name_adr, 
5 HS 4. : g.kndwn ! Address of pointer to a known_block 
D4 = 
3 1718 begin 
3; 16 1721 ! This rovtine translates a logical name in a particular table, and returns 
5 5 i § ; @ pointer to @ log_block (or 0). 
; 16 1726 local 
3; 16 1725 proc nt: nt_block, 
; 16 17 $ Syst_nt: nt_block, 
z 16460 17 known: ret known_block, 
3 16461 1728 log: ref log_block, 
3 1o66 1729 status; 
3; 1646 17 ocal 
3 16466 1731 nt: ref nt_block; ! Usually R3 
; 1? i ¢ Label ' 
; main; 
; 1609 17 
; HS a | 1735 runs_in_kernel_ (translate); 
: 166 17 rechéck_tables?); 
3; 1650 1737 
3 1651 1738 main: 
3 1026 1739 begin 
3; 165 1740 ; 
3 1654 1741 ! Initialize the values we will return to zero 
; 1655 ee : 
3 1636 174 known = 0; 
3; 165 1744 log = 0; 
; 1oe8 1745 
; 165 ire ! Initialize the nt_block for the logical name 
3; 1660 174 ¢ 
; 1661 Hb 4 decr i from k_process_directory to k_system_directory do 
; 166¢ 1749 4 begin 
3; 166 1750 4 local 
3 1664 1751 4 l ref Sbblock; 
3 1665 1286 4 
3 1o68 1755 4 if .i eql k_system_director 
; 166 1754 4 then nt = syst_nt base_j 
3 13 Hed ? else nt = proc_nt(base_J; 
r 1870 1737 ‘ ! 2??? Note that we set the access mode to .acmode. 
; 1671 1758 4 : This should be okay, since (nm$presearch and inm$contsearch only 
3 1o7¢ 1759 4 ! check the access mode of the logical name, not the logical name 
3: 167 1760 4 ! table. 
3; 1674 1761 4 ; 
3 1675 176¢ “ nt(nt_b_acmode) = .acmode; ! Acceptable integrity mode 
: 1676 17635 4 ntint_b_ flags] = 0; ! Initialize flags 
3; 167 1764 4 nt ntqv-case) = true; ; Lsegnyncen itive 
:; 1678 1765 4 ntint_wohash) = 0; ! Hash function or 0 
; 1679 1766 4 ntint_t_namlen] = .name_len; ! Length of name 
5 1o89 1767 4 ntint_l_namadrj] = .name_adr; ! Address of name 
; 1681 1768 4 ntint_l_tabid) = 0; ! Table header address or 0 
; 1o5¢ 1780 6 nt(ntl“thread) = 6; ! Lamb pointer 
; 168 1770 4 
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F 4 
16-Sep-19 :28: AX-11 Bliss-32 V4.0-742 e 1 
voe-b06 122888-1 382 93:69:39 tetiute sre SHOWLOG.832;1 age 45) 
: 44) ; DO @ presearch on the logical name 
78 status = tanSorepcarchs..lantot hegneoit. $3. ntC(base_J; Lnmb); 
74 f not .status then nt(nt_l_thréad) = 0; 
oe? end; 
2 re 7 -proc_nt(nt_l_ thread] eql 0 and .syst_nt(nt_l_thread] eqi 0 
$36 18 leave main; 
om f 1 : Loop through, trying to find a known table that holds this logical name 
38 7 ¢ known = .p_known = Zfieldexpand_(known_l_next,0); 
9 7 while (known = .known[known_l_néxt]) néq 0 do 
Ms f 5 begin 
00 7 i We simply put the address of the Lnmth block into the nt_l_tabid 
01 788 : field and call inmScontsearch. This is okay, because rechéck_tables 
Oe 789 ! has verified that all the tables are still good (or has clearéd the 
yi fa known_l_inmth field for those that aren't). 
05 a4 Label 
79 Lookup; 
794 lookup: begin 
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table: ref table_block, 
inmth: ref Sbblock, 
Lnmb: ref Sbblock, 
save_thread; 

able = ~known[known_l_table); 


0909 C9 CO CD ~v 
RANLS$ 


3 


Ignore this table? 
Should we look in 
system hash table, or 
process hash table? 
Stuff it here — 

Any possibilities? 


f inmthibase_) eql 0 Ehen Leave Lookup; 
f .inmth(lnmth$v_shareable 
then nt = syst_nt(base_ 
else nt = proc_nt(base_J; 
nt(nt {_tabid) = lamthtbase 4; 
if -ntCat_l_thread] eql 0 then leave Lookup; 
Now go look for it 


save_thread = .nt({nt_l yoreed); 

status = paaScontsear ching base_}; \nmb); 
nt(nt_l thread] = .save_thread; 

if nof Tstatus then leave lookup: 

log = new_lnmb(inmb{[base_], table(base_)); 
if log{base_) eql 0 then leave lookup; 
leave main; 

end; ! of lookup 
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Check status 

Save the Lnmb block 
Verify it’s acceptable 
We found one! 
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Now go try another table 
0; 
end; 


SOISFARE 


kaa et kd ad ts de ok ok tk oe a a a i Pd as to a a a 
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| 18-se “19 :28: AX-11 Bliss-32 V4.0-742 P 2 
‘vou-bc6 e-Sep-1966 92:68:57 ECL TutL Sat Ssmowtog-052:1 tee 
F} , ve } end; ! of main 
3 174 1 Lnm$unlock(.ctl$gl_pcb); 
; i nag + | | bictades 
: 1746 1 ! Return the address of the log block, 
3 if ! : : and the known_block of the table. 
5 176 1 .p. known = known{ base_J; 
3 1730 1 return log(base_J; 
3; 17 1 end; 


O1FC 00000 TRANSLATE: 
- WORD 


Save R2,R3,R4,R5,R6,R7,R8 3 17146 
58 000000006 9 02 MOV CTLSGL Pca. Rb : 

1 Se Soooe wae fe & : 1735 
02 1 ED CMP2V. #24, #2, PSL, #0 : 
0000" CF $00 O001 MOV. EP, SAVED_FP 
11 «11 A BRB 23° . F 
5c 0 Cc 1$ PUSHL AP : 
000000006 00 oF 0b FB 00021 CATS. ae SYSSEMKRNL : 
0000" CF ps 8 cLRL SAVED_FP 
” 000000006 68 1 fe SB te tes * ” ; 

F726 CF 90 FB CALLS #0, RECHECK_TABLES : 1736 

4 CLRL —s_ LOG : 1744 

54 1 mova 80s #1, I : 1767 

5 D 9 3$ TTL) =o : 1753 
oe BNEQ 4$ $ 

53 6E H 4 MOVAB SYST_NT. NT > 1754 
04 1 7 BRB a ; 

5 14 AE 9 9 4$: MOV PROC_NT, N > 1755 

é3 0000" CF 38 p 5$: MOVZ7BW ACMOBE, (NT) > 1762 | 

eh ow 2 te me Stan tides. 

06 «a3 i at 2p 5 nova NAME EN, 4(NT) ; 1766 

50 0000000060044 06 4 mOVL LNASAL HASHTBLLI1, RO : 1773 
000000006 1 JSB LNMSPRE SEARCH : 
52 06 MOVL RO, STATUS : 

0 E BLBS STATUS, 6$ : 1774 
10 A3 D4 CLRL —«- 16 (NT) : 

(2 54 F4 0007B 6S: SOBGEQ I, 3$ : 1748 

24 A : re Ist PROC _NT+16 ; 177? 
10 AE D a5 TSTL  SYST_NT#16 ; 
4A 1 86 BEQL ©-118 : 

55 Oc ac 00 7$: MOVL § P_KNOWN, KNOWN : 1783 


; Routine Size: 


230 bytes. 
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ah 

= 000000006 0 . 

"3 mi: 
F 6B 

*827 gf ef 
2 000000006 %% 

iid | 


Routine Base: SCODE$ + 0830 


4 
b-sep- 
-Sep-1 


198e 12:69:57 et iutL*SeeSshowtogcesast 


{emOun) » KNOWN 
8(KNOWN), TABLE 
as" NOWN), LNMTH 


(LNMTH), 9$ 
YST LNT, NT 


PROC_NT 
thTR {2tnT) 
6(NT), Save THREAD 
LNMSCONTSEARCH 

RO, STATUS 

SAVE, a 16(NT) 
#°M<RI_R 


CTLSGL_PCB, R4 
ae OCK 


RROUN- BP _KNOUN 
LOG, RO 
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: Routine to recursively translate a logical name. | 
i Note that while we are in this routine, we use the virtual memory as a stack 


uw 


i (via utillallocate and util_reallocated. 
routine recursively_translate( 
n . 


> i>) 
Oe 


ref known_block, 
ref jog bTock, 
ref SbbT 


transx: vector(lnm$c_maxdepth]; 


ock; 


SSSISAFARS 


SNS SSS SSS 


~~ 
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if .depth gequ Llnm$c_maxdepth then return; 
: Set up for the first known table 


OONOA VE W "OO OONOUE wr" 


PAMAAMAMI 


known = known_list - Zfieldexpand_(known_l_next,0); 
mile Coneun = .known[known_l_next]) neq 0°do 
gin 


! Look for the next translation, in a table starting with known. 
! If a@ found, known is set to the known_block in which it was found. 


SESSSTERSE 


POPPA EY BBB MAMA AMAA AAA AANA AA AHA PO PIPUPIPIPUPI PIPPIN 2 tt ee 
o® 
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383 
. 
ee 


log = trans| te(.name_len, .name_adr, known); 
if loglbase_J] eql 0 then return; 


Avoid redisplaying recursive translations (in the current path) 
transx{.depth) = Logbase_}; 
decr i from -depth- to 0 go 

if .transxl.i] eql loglbase_] then return; 


: Display this translation 


te ie de de) 


dump_log(loglbase_}, .depth); 


! Unlink the log_block from the table. 
! This isn’t really needed. It's just good practice, since the pointer 
i to the log_block is invalidated by the call to util_reallocate. 


begin 

local table: ref table_block; 
table = stoatlog.t_tabled; 
taptetradie.t_ lop = 0; 


Goss Pererer errr ener errr SEREare 


Now loop through, doing recursive translations 


inmx = .logllog_t_name] + 1+logllog_t_name); 
while not Sinast (RaxSv_xend) do ae 
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so~ 130% 9}: $8: yf AX-11 Bliss-32 V4.0-742 | Pose .§5 
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14-Sep-19 CLIUTL.SRCJSHOWLOG.832;1 
in 
Tt. index] geq 0 and not .lnmxClnmx$v_terminal) 


begi 
loval Len. nage: 
len = haxSt xlation); 
ae s es pene Tnnedt t_xlation); 
. len gequ 4 then“if .(.adr)<0,16,0> eql %x"001b* 


veg = .len = 4; adr = .adr + 4); 


! If we have a trailing colon, remove it 
tuntess there are actually two trailing colons). 
if .len gequ 2 t 

pie ht TA me rene?) neq ':' 

_Sherehars .60re. len-1) eql ‘: :* 


See aeoRsesess 


OD AAA FB PDP DPV SAPVSTSTSISISTSISIIIIION £ = 


“ven = .len = 1; 
recursively_translate(.len, .adr, .depth+1); 
end; 
inmx = .lnmxClnmx$t_xlation] + 1+ nmxClnmx$t_xlation); 


; Back up our memory allocator. 
util_reallocate(logl(base_]); 
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end; 
end; 
.PSECT SOWNS,NOEXE,2 
00018 .BLKB 
0001C TRANSX: .BLKB 40 
.PSECT S$CODES$,NOWRT,2 
007C 00000 RECURSIVELY TRANSLATE : 
; 0s suet? save R2. »R3,R4,R5,R6 : 1844 
2 0c AC ae RS : 1858 
OA 3 CAPE R5, #10 : 
. ie : 
6¢ 0000" CF MOVAB KNOWN LIST, KNOWN > 186 
6 FF OAS MOVAB ey RST R6 : 187 
§ oo a te 
ge PUSHL SP : 1869 
7E 06 =A MOVG NAME_LEN, -(SP) ; 
FEF3 cf 03 CALLS #3, TR TRANSLATE : 
3 MOVL R : 


Kk 4 
Ss 16-Sep-19 :28: AX-11 Bliss-32 v4.0-742 Pa Ss 
ives aaa ri eC Cat ihe hg pio oe ge 4% V 
1 BEQL «6s 4S : 1870 : 
0000" CF 45 4g MOVL +06 TRANSXCRS] : 1874 : 
or Ae MOVAB 1cR6), I : 1875 ; 
53 0000'CF4 p 3$: CMPL —s« TRANSXCIJ, LOG + 1876 : 
7 g$: BEQL §=:«saW'S : | ; 
F5 é $: SOBGEQ 1, 3$ 3 3 
BB PUSHR #M<R3,R5> + 1880 ; 
FC38 gf F CALLS #2, DUMP_LOG ; : 
0 0% AS D VL 4(L0G), TABLE 3; 1888 3 
7? a CLRL 16( TABLE) 3; 1889. 3 
OA AS OA MOVZBL 10(LOG) RO + 1896 | : 
A34 MOVAB 11(L0G)EROJ, LNMX : | ; 
4F * 0 § 68: BBS #2, (LNMX), > 1895 | : 
01 A TSTB = 1 (LINMX) > 1897 : 
i 1 BLSS = soO9S : : 
38 2 1 €0 BBS #1, (LNMX), 9$ : : 
4 04 ag A MOVZBL 4(LNMX), LEN + 1901 | : 
0 5 Ae 9 MOVAB  5(R2), ADR : 1908, : 
04 54 D CMPL LEN, he : 1903. : 
08 1F BLSSu.  7$ : : 
18 6 81 CMPW 3836s (ADR), #27 : : 
6 BNEQ 7$ : : 
4 s€ SUBL 2 #4, LEN ; 1905 : 
9 04 ¢ ADDL2 #4. AD : | : 
0 4 D1 7$ CMPL EN, #2 + 1910) : 
12 =#41F BLSS 3 : 
51 0 54 gt ADDL LEN ADR, R1 + 1911. : 
A fe Al 91 CMPB) 0s «=2(R1), #58 ; ; 
08 13 BEQL 3 3 
3A FF OAL OO CMPB Os =1(R1), #58 : 1912) 
2 if BNEQ 8$ ; | 
4 p DECL LEN : 1914) 
01 AS OF 8$: PUSHAB 1(R5) : 1916. 
50 oD PUSHL ADR : 
54 0D PUSHL LEN ; | 
FFSE CF 03 FB 00090 CALLS #35, RECURSIVELY_TRANSLATE 3 
39 04 a2 9A 000A2 9S: MOVZBL 4(LNMX), R : 1918. 
05 A246 9 O0A6 MOVAB 5(LNMX)(ROJ, LNMX ; 
Ap 11 0008 BRB 6$ : 1895 | 
53 DD OOOAD 10$:  PUSHL LOG : 1923 | 
F38A CCF 01 FB Sonat CALLS #1, UTIL_REALLOCATE 3 
FF61 31 000B4 BRW 2$ : 1863 | 
04 00087 118: = RET : 1925 | 


3; Routine Size: 184 bytes, Routine Base: S$CODES + 0C16 
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} H This is the main routine 
global routine show$logical = 
begin 


list: ref cmdtbl_block; 


ages, 
josb? vector(2], 
jpi_list: vector(4] initial (jpi$_freptecnt*16+4, free_pages,0.0); 
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cro 
dsc_lenadr_(x) = .x{dscSw_length], .xCdsc$a_pointer] 2%; 
Initialize all the flags to off 


chSfiLL(O, Zallocation(flags), flags(base_]); 
saved_fp = 0; 
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} Allocate virtual memory 


Scheck_(Sgetjpiw(efn=0 pote ik List)); 
vm_size = minu((. san$gl pagedyn + 1023),((.free_pages-32)*512)); 
Scheck_(LibSget_vm(vm_size, vm_addr)); 


Bs 


'¢ 
Collect the qualifiers and logical names to be translated 


Stset 


MAMA 
OWONAOVEWN "OO OONOUE WN -O0Oe 


ee ee ee ee ee eS 
ee a a ed ed a ed dd = dd = td SS wd 8 2 dt tt 


7 
° 
. 
. 
. 
* 
7 
° 
» 
o 
7 
’ 
7 
° 
. 
f 
7 
° 
. 
o 
. 
4 
7 
° 
. 
° 
. 
° 
. 
° 
. 
° 
. 
ao 
. 
° 
. 
° 
° 
° 
7 
_ 
8 
° 
- 
a 
8 
° 
. 
o 
= 
° 
° 
+ 
° 
. 
° 
7 
- 
7 
a 
. 
° 
. 
° 
. 
* 
. 
© 
7 
* 
a 
° 
6 
° 
. 
° 
. 
o 
« 
e 
7 
© 
© 
e 
7 
° 
es 
a 
« 
° 
. 
° 
. 
° 
. 
o 
a 
* 
. 
a 
. 
° 
. 
ae 
7 
° 
. 
* 
. 
2 
. 
2 


9 
1A! ! Determine which standard logical name tables to search 
71 : Tables specified by the /TABLE qualifier are searched before 
o76 $ the tables that correspond to these qualifiers. 
th, If none of these are specified, all four tables are searched. 
875 960 flags flag_v_system] = cli$present(Zascid ‘system'); 
876 961 flagslflag_v_ roup4 = cli$present(Zascid ' roe) 
877 986 flags tles eto cliS$present (Zascid 5 ts 3 
a78 oor flags(flag_v_proc] = cli$present(Zascid ‘process'); 
aoe eee : Indicate that the heirarchical structure of the tables should be shown 
ace $67 flags{flag_v_normalJ= not cliSpresent(Zascid ‘structure'); 
Bee 393 Indicates descendants of the specified tables should also be searched 
B36 30) flags(flag_v_descend) = cli$present(Zascid ‘descendants'); 
ase 378 : Indicates that lots of information should be displayed 
890 20? flags(flag_v_full) = cliSpresent(Zascid ‘full"); 
59 375 ! Determine the qualifying integrity mode 
89 38 ! Only logical names equal or inner to the qualifying mode are shown. 
94 97 ‘ The integrity mode is also used to vet ty which tables are searched, 
95 980 ' and which tables are shown by the /STRUCTURE qualifier. 
98 3B ' Also, turn on inner integrity mode flags 
89 982 !' If none of the mode qualifiers were specified, assume user mode or inner. 


<uv | 
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Ss 16-Sep-1984 01:28:17 AX-11 Bliss-32 V4.0-742 Page 68 
rived itd 12-86871 382 93:68:45 CLIUTL.SRCISHOWLOG.B32s1 . (14) \ 
98 983 ‘ 
9 begin 
985 own 
9 $ mode_str: wpgtertss pgecs (Spt its presert 
¢ 9 pst cakerng = Zascid ‘KERNEL_MODE' 
9 $ psl$c_execJ= ascid ‘EXECUTIVE MODE* 
904 9 ps\$c_superJ= Zascid ‘SUPERVISOR MODE’, 


S 


psi$c_userJ= ascid 'USER_MODE'S; 
dsc_access_mode = Zascid'access_mode'; 


acmode = ps\$c_user; 
if cli$presenttdsc_access_mode) 


331 
I 
908 99 
909 994 
910 995 
911 o38 then | 
aig 99 begin 
91 998 Local 
914 999 desc: SbblockCdsc$c_d_bin]; 
915 000 Sinit_dyndesc (desc); 
a 001 cli$get_value(dsc_access_mode, desc(base_]); 
91 Oe decr mode from psT$c_usef to psl$c_kernel do 
918 00 begin 
919 004 bind 
920 005 name = .mode_str(€.mode): $Sbblock(dsc$c_s_bin]; 
921 006 if sGescldscSu_ length; Lequ .nameCdsc$w_length] then 
o5¢ 00 if ch$eql( .désc(dsc$w_length], .desc(dsc$a_pointer]), | 
9 00 -desc(dsc$w_length], .name(dsc$a_pointer] ) 
924 10) then 
925 begin 
926 acmode = .mode; 
7 exitloop; 
8 end; 
end; 
str$freel_dx(desc(base_J); 
end; 


end; 
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+ | 
! Get the table names specified from the command Line (cmdtbl_list) 
: Get the logical names specified from the command Line (cmdnam_list) 


cmdtbl_list = get_tables(); 
cmdnam_list = get_lognam(); 
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! Determine whether recursive translations are desired. | 
' We will show recursive translations if NONE of the Logical names 
! contain wildcard characters. 


gin 
cal List: ref cmdtbl_block; 

st = cmdnam_list -_%fieldexpand_(cmdtbl_l_next,0); 
agsC flag varecurse) = true; 

ile (List = .ListCemdtbl_l_next]) neq 0 do 


begin 
bind name = List(cmdtbl_q_name]: $bblock(dsc$c_d_bln); 
macro contains_(x,y) = nok ch$fail(ch$find_ch(dsc_lenadr_(x), y)) 2%; 
Nd contains_(name, ‘*') or contains_(name, ‘%*) 
en 
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; 1955 9 begin 

; 19 $ tlogsCflag_v recurse) = false; 

; 19 ¢ exitloop; 

3; 19 : end; 

3 19 4 end; 

ee BE 

; 196 04 

3 1968 Bee } Find the relevant tables 

; 1965 050 Scheck_(get_relevant_tables()); 

; 1306 B2) if known_lListibase_J eql 0 

3; 196 § then 

es pete 

; dA 322 Complain if we found no logical name tables | 
; 137% 089 signal (ss$_ivlogtab and not sts$m_severity or sts$k_warning); | 
Be Bes ~~ raat 
; 197? ae : Check for recursive translations ‘ 
3 1977 06¢ if .flags(flag_v_recurse) 

Be BEE se | 
; 1980 065 local 

3; 1981 066 list: ref cmdtbl_block; 

: 198¢ 067 List = cmdnam_list - %fieldexpand_(cmdtbl_l_next,0); 

3 bs Bes ? wiile (list =. listCcmdtbl_l_next]) neq 0°do 
; egin 

3; 1985 2070 4 bind name = ListCcmdtbl_q name]: SbblockCdsc$c_d_bln); 

: 1986 071 4 if .ftegs(flag.v.found] then write_blank_line(J; | 
3; 1987 ore 4 flags(flag_v_found] = false; 

3; 1988 073 4 recursively _translate(dsc_lenadr_(name), 0); 
3 1989 or ‘ if not .flags(flag_v_found] 

; en 
3; 1991 2076 4 signal (show$_notran,1,list(cmdtbl_q_name]); 
; 136 07 d; 

3; 199 078 end 

3 1994 079 else 

3 1332 644 begin 
: 1997 Oe it . flags€flag_v_normal) 

; 1999 O84 for_each_lnmb( match_lnmb, 0 ); 

: 4 4 Now display the tables, and the logical names in the tables 

; 008 088 List = cmdtbl_list - %fieldexpand (cmdtbl_l_next,0); 

> 2004 089 while (List =".listCcmdtbl_l_next]) neq 0°d6 

3; 2005 4 begin 

3 B06 4 visit_tree(.listCcmdtbi_l_table] 

; 200 4 LT ieldexpand_(table-("child,6), 

; 2008 4 if ieldexpand~(table"|“next,6), 

3 2009 4 Gump_.tab e. 

3; 2010 4 ); 

3; 2011 3 end; 


5 
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it . flags(fiag_v_normal] and not .flags{flag_v_ found] 
signal (show$_notran,1,cmdnam_list(cmdtbl_q_name)); 
end; 


Free the dynamic strings that have been holding table and logical names. 
decr i from 1 to 0 do 
begin 


7 om 

then list = mw bee List = Zfieldexpand_(cmdtbl_t_next,0) 
else list = mE - ifie dex and_( aqebl. \=next,0); 

while (List : manest cndtbl.l_nexts neq 


bind. n = List(cmdtbl_q_name]: Sbblock(dsc$c_d_bin]; 
if .name(dsc$b_class eat “dsc$k_class_d 
e 


str$freel_dx(name(base_]); 


e 
end; 


: ; Deallocate virtual memory 


vm_size = minu((.sgn$gl_ ~Pagedyn + 1023),((. free_pages-32)*512)); 


; If none of tne logical names translated, complain about it. 
4 

4 

4 

4 

4 

. (iBStree _vm(vm_size, vm_ad 


return ss$_normal; 
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L1:1948 
symbol FREE_PAGES is probably not initialized 


250 
; Referenced LOCA 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


or -BLKB 3 
00990000 99000000, bot ee Dt eet ~ Oo wa om ob ; 
3 % Boake ° 04 P.ACJ: “ASCII 18 iso : 
“010 o¢ P-ACI: 1 34 26 ; 
9 021 “ADDRESS. P : 
00 00 00 70 75 6F 0214 P.ACL: . ad 1 grup <0><0><O> : 
00 62 6F 4 P.ACN: “ADDRESS P-ACL > : 
018 ; 8 P.ACM: . 13280983 : 
00 73 73 65 63 6F $ P.ACP: ASCH Ape \<0> : 
08 PIACO: LONG 17694737 ; 
0090 “ADDRESS P.ACP ; 
00 00 00 65 72 75 74 63 75 72 7% ib P.ACR: .ASCII \structure\<0><0><0> : 


mae 


61 


4D 


56 


53 


Gh 


000000006 


oan : 


00000000" 00000006" 00000000" 100000" 
65 64 6F 6D 5F 


73 65 «63 $3 61 
010€0008 
00000000° 


58 000000006 00 9 
A 000000006 ps 9E 
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«ADDRESS P.ADD 
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P.ADE: .LONG 1 
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#36, SP 3 

#16, P.ACH, JPI_LIST : 1935 
FREE_PAGES. JPI“LIST+4 : 1929 
FLAGS : 196¢ 
SAVED_FP > 194 
=(SP) > 1947 
10S8 : 
JPI_LIST : 
-(SP) : 
-(SP) : 

#7, SYSSGETJPIW : 
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vM-SI 
#27. 1BSGET_vm 
$,°3 

#1, LIBSSTOP 
P.ACI 

#i, CLISPRESENT 
RO, #0, #1, FLAGS 


P. 
#1, CLISPRESENT 
RO, #1, #1, FLAGS 


P. 
#1, CLISPRESENT 
RO, #2, #1, FLAGS 


P.ACO 
#1, CLISPRESENT 
RO, #5, #1, FLAGS 


P. 
#i, CLISPRESENT 
R1. #4, #1, FLAGS 
i, CLISPRESENT 
RO, #5, #1, FLAGS 


P.ACU 

#1, CLISPRESENT 
Re #6, #1, FLAGS 
#3, ACMODE 

#1. CLISPRESENT 
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#34471936, DESL 
DESC +4 


R 
#2, CLISGET_VALUE 
#3, MOD 
RODE STRENODE). RO 
ESC, (RO) 
gsc. @DESC+4, a@4(RO) 
RODE, ACMODE 
MODE, 4$ 
#1, STRSFREE1 Dx 
#0, GET_TABLES 
RO. CMDTBL_LIST 
#0, GET_LOGNAM 
RO, CMDRAM_LIST 


CLIUTL.SRCJSHOWLOG.832;1 


Page 


Pee Se Se Ge Se Se Se See Ge Se Se Se Se Be Se Se Be Os Be Be Be Be Be Ss Oe Se Oe Be Bete Se Se Se Se Ge Se Se Se Se Be He Be Se Se Ge Se Se Se Se Se Se Se Se Be He 


72 
(14) \ 


1949 


oOo 
= 
wn 


74 
ast 


IsHOWLOG. 


AX-11 Bliss-32 V4.0- 
CLIUTL.SRC 


t 


2:65:44 


: 


9c 


3 ae 1 
-seo- 
-Sep-1 


1 
1 


vue -oO - ~ NWN KO Oe ae To coonw oo -— o 
Bas 8s 36 $8238885 55 55 388 3838 8 
crm Ss Cu wm NN NS NN CUT wm um wen wm GN ~~ 
PSPSPS FS FS FS FS FS FS FS FS FS FS FS FSFE FS HS HS FES SS FPS HS HS HS HS HSS HS HS HS HS SS SS SCS FS SCS SCS SS HSH SFE He HS He Srerererarearareararere 
w 
= 
wn 4 
iv) oo | 
| ” 
s Zz 
cae 
- a 
so ~ ~ : - _ _ 
” N ~N - “ ft ” 
eon a a 3 “ - > co 
—_) . 4 _ = a | = — —_+ A aed aw 
> 4 x = < a w z< @ a uw 
._ w a z -_ a od > az = z= a 
-mnwn cw "nw oO av -m MoO 3: nN aw vwrw oa 
Woe & + . Ow -—- a Ye Ee—-wor ane oan) 7 tn~ ws tS 
a ~ ~ << “non ww — Zz wm Wa 33 ”n we ail 
44 —~ ™N ad 6 an lw A a) s so ~o nd w a= 
a= Ac a wr ow t*@ ts Ae see tocar wo <« mc te YVnw 
~~ e~ ~ weet _ ~ ee &Y wee Be ww OWS laid attend 
—_- Ww “om sw —- MYxsMDuUnr +H + warTu@e — 81> 
ow - + . o - wr oY YM nO aM OF aw -w adc ~ 
pe tae AN Ns OAT *LHO—* IE wan fa A Wr e875 3 
-— Je TOR MORK MO 8 RK ZIM Ee we ew EM I ONT YS EOE UO~ De nom 
Veaw~e OBO B-CZIOs BYR Me BBL Vw ve Dee i w~BuOeeee-eB i =2uU~w 1 OBevae 
O89 43tGV09 YIU IjsM tow Jjg™ 409d a IQVEIOITN IMT ato stwttrtorti 
>> PVWE— WOW OY UO Jew > OO OOH) UU EY S UD) YWOVA HN IS POI ew LUD 
St bet Fe tet tat Fe RP tad tpt tt st Fa et Set te ett fet eet tt fete feet 
S@OLOE IOV O@ IO + OOv WA Yr @OEwr-@W @MEZMAYMvrA TS MAAavrOMOwaw Ow ve@ 
re AA Se A cay oe cad AD 
ad Sad oOo -~w ~~ w wow eo ~ oo 
@ oa rr oer - - - - - Cae 


vowrrO O~wT OO ae emer co unr oOo NOE ow DOOMOOD VWI DBDWOWOO Vr 
aSISSF ASOOOOR KKK DODDOSOCOO 2 ax SLB DDB OUOS Swwwwu 
3S" EVTMVEUTWMN COD OOMNVVYVOMNOWOMWC u O42 OVOOu COOK Te OwWwOMysu 6 OO 

S- OMe DOr Me BO Ou WOLOr Mu OO- FW. DOOMUWOOou-WoOrura- oun 


OELMOI ENIRK ON — OL COO OO — Ok ONION OD RK — UMNO EN We OCU OND ~ 
VS BNSNORRSWONDrBDORRS ZODOOMAON @ POOON 4 HO 4 AODOVSN UO ZO UO eOUw 


oO 
vo @ Oo zr @ Y o-oo o o - @ o 
“2 oO < eae = Co- 3 sss oS & =o 5 
- a o oOo <x 
oO - oS ve ve 
oS 
S 
~~" om ~ wn Oo we AUN MO 4 O we mur w 
Ss oS a 2 R 
@ _ a OO ™N 
“~ Vv ao - — 
~N ~N 
@ @ 8 


— —_—_ - ----—s— > —— ee  - - —_- oo - —_— -——— ~—-— ---— — - — —_—__—_—_---——  — $$. 


F 5S 


16-Sep-1 1:28:17 AX-11 Bliss-32 V4.0-742 P 7% 
Vou=b08 ae eats rik PS eC Gat ih hg pee So 29e 14) 
| 16 04 f3 208: BC #4, FLAGS, 21$ : 21 
| 8 or A Eh '? Biss. FLAcseie S18 bee 
| 7E FC OG ci F ADDL #8, CMDNAM_LIST, -(SP) + 2102 
| 000000006 8F DD PUSHL #SHOWS_NOTRAN : 
é CALL #3, LIBSSIGNAL 3 
3 D gis: mOVL svt, + 2109 
28: Bec I, 23$ + 2111 
FBS 1 MOV MDTBL_LIST, LIST t 2112 
06 «1 1 BRB 4$ : 
33 FC 1 gis: MOVAS CMDNAM_LIST, LIST 3 $132 
6 p 18 24$:  MOVL (LIST); LIST 7 2116 
| 5 A 5 Sovas  S<LIST). RO 2116. 
0 8 A 3 4 C ths. #2 : $319 
fo oS ' tA 65° 2119. 
000000006 00 01 re CALLS #1, STRSFREE1_Dx ; 
ES 1 BRB $ t 2114 
F4 258 SOBGEQ | 328 : 21 
50 $8 000003FF ef C1 ADDL3 #1023, SGNSGL_PAGEDYN, RO + 2126) 
a 7.4 
50 4 D8 4 MOVL , RO : | 
EB AG 50 DO 00248 268 MOVL RO. VMSIZE : 
EC A6 OF 0024C PUSHAB VM’ ADDR + 2127 
EB Ab OF O024F PUSHAB VM~SIZE : 
000000006 90 02 F 52 CALLS #2, LIBSFREE_VM ; 
0 01 20 39 ROVE #1, RO : 31 ° 


; Routine Size: 605 bytes, Routine Base: SCODES + OCCE 
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-EXTRN LIBSSIGNAL, LIBSSTOP 
PSECT SUMMARY 
Bytes Attributes 
NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, CON,NOPIC,ALIGN(2) 
7 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3885 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, CON,.NOPIC ,ALIGN(2) 
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3; Information: 1 
3; Werni : 
:; Errors: 


; COMMAND QUALIFIERS 

$ BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SHOWLOG/OBJ=0BJ$:SHOWLOG MSRCS$:SHOWLOG/UPDATE=(ENH$S : SHOWLOG) 
Size: 388 4° + 820 data bytes 

T :01 

; : 1555 

: Lexenes/CPU-Min: 5981 
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